public Class Form1
 
  Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As _
    System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
 
    Select Case e.Node.Name
      Case "Knoten0"
        TextBox1.Select()
        wait(1000)
      Case "Knoten1"
        TextBox2.Select()
        wait(1000)
    End Select
  End Sub
 
  Private Sub wait(ByVal interval As Integer)
    ' Loops for a specificied period of time (milliseconds)
    Dim sw As New Stopwatch
    sw.Start()
    Do While sw.ElapsedMilliseconds < interval
      ' Allows UI to remain responsive
      Application.DoEvents()
    Loop
    sw.Stop()
  End Sub
 
End Class