..

Project_fp13/selitem.vb

@@ -0,0 +1,24 @@
+Public Class selitem
+    Private Sub selitem_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
+
+    End Sub
+
+    Private Sub selitem_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
+        If e.KeyCode = System.Windows.Forms.Keys.Escape Then
+            Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+            Me.Dispose()
+        ElseIf e.KeyCode = System.Windows.Forms.Keys.Enter Then
+            Me.DialogResult = System.Windows.Forms.DialogResult.OK
+            Me.Dispose()
+        End If
+    End Sub
+
+    Private Sub ListBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClick
+        Me.DialogResult = System.Windows.Forms.DialogResult.OK
+        Me.Dispose()
+    End Sub
+
+    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
+
+    End Sub
+End Class