Visual Basic

'------------------------------------------------------------------------
' A backhanded way to get the tab we clicked on
'
Private Sub tabFromClick(ByVal e As System.Windows.Forms.MouseEventArgs)
    Dim thisTab As Integer

    For thisTab = 0 To Me.TabCount - 1
        Dim tabRect As Rectangle = Me.GetTabRect(thisTab)
        If tabRect.Contains(New Point(e.X, e.Y)) Then
            Me.SelectedIndex = thisTab
        End If
    Next
End Sub

Dim tmp As String<br />
<br />
        For Each tmp In [Enum].GetNames(GetType(objectState))<br />
            Console.WriteLine(tmp)<br />
        Next

Public Function HandleOfCurrentWindow()
Dim WindowHandle As Integer
Dim p As Process
    p = Process.GetCurrentProcess
    WindowHandle = Process.GetCurrentProcess.Handle.ToInt32
    'get handle of current window 
    'return handle
    Return WindowHandle
End Function

Dim WindowHandle as IntPtr
    p = Process.GetCurrentProcess
    WindowHandle = Process.GetCurrentProcess.MainWindowHandle()

Private Sub Edit_KeyDown(ByVal sender As Object, _
                         ByVal e As System.Windows.Forms.KeyEventArgs) Handles Edit.KeyDown

Select Case e.KeyData
Case Keys.End
...
case Keys.Subtract Or Keys.Shift   ' this is the _ key (Kinda confusing)
...
end select
end sub