Winziges Problemchen mit FolderBrowserDialog

   Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long  
    Private Declare Function SetForegroundWindow Lib "user32" Alias "SetForegroundWindow" (ByVal hwnd As Long) As Integer  
    Dim WithEvents t1 As New Timer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim fd As New FolderBrowserDialog
        t1.Interval = 200
        With fd
            .SelectedPath = "C:\Windows"  
            t1.Start()
            .ShowDialog()
            t1.Stop()
        End With
    End Sub

    Sub SendKeysToApplication(ByVal AppTitle As String, ByVal key As String)
        Dim hWnd As Long = FindWindow(Nothing, AppTitle)

        If hWnd <= 0 Then
            '*** TO DO *** Fenster existiert nicht  
        Else
            SetForegroundWindow(hWnd)
            SendKeys.SendWait(key)
            t1.Stop()
        End If

    End Sub

    Private Sub t1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles t1.Tick
        SendKeysToApplication("Ordner suchen", "{TAB}{TAB}{right}")  
    End Sub