'--- Timerfunktion
Private Sub tmrExpandNode_Tick(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles tmrExpandNode.Tick
        Static tn As TreeNode = trvFavoriten.GetNodeAt( _
        trvFavoriten.PointToClient(trvFavoriten.MousePosition))
        Static xn As TreeNode
 
        If xn Is Nothing Then
            xn = tn
            Exit Sub
        End If
 
        If tn Is xn Then
            tn.Expand()
            xn = Nothing
            tmrExpandNode.Stop()
        End If
    End Sub

trvFavoriten.GetNodeAt(trvFavoriten.PointToClient(trvFavoriten.MousePosition))