Visual Basic

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

  dim chkbox as new checkbox

  me.controls.add(chkbox)
'or possibly 
  dim o as object
  set o = me.controls.add(chkbox)

' RichTextBox1 is Visible, RichTextBox2 is not.
'   And make sure RichTextBox1 is cleared of text first.
RichTextBox1.Visible = True
RichTextBox2.Visible = False
RichTextBox1.Clear()

' Now, for each filename:
'   Have the hidden RTB (RichTextBox2) load the file we want
'   then, select all the text in it
'   then, tell the visible RTB (RichTextBox1) to Append the SelectedText in the hidden RTB
'   and then, append a blank line to the bottom of the text.
For Each Filename
    RichTextBox2.LoadFile(filename)
    RichTextBox2.SelectAll()
    RichTextBox1.AppendText(RichTextBox2.SelectedText)
    RichTextBox1.AppendText(vbCrLf)
Next