Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
        Me.TextBox1.Text = Date.Now.ToShortTimeString
        Me.TreeView1.Enabled = False
        Me.TextBox1.Focus()
        Me.Timer1.Interval = 50
        Me.Timer1.Enabled = True
    End Sub


    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Me.TreeView1.Enabled = True
        Timer1.Enabled = False
    End Sub