Public Class frmNotePad
 
    'Ab hier einfügen
 
    ' Activate an application window. 
    Declare Auto Function SetForegroundWindow Lib "USER32.DLL" _
        (ByVal hWnd As IntPtr) As Boolean
 
    Dim WithEvents btnsenden As New Button With {.Parent = Me, .Text = "Senden"}
 
    Private Sub btnsenden_Click(sender As Object, e As System.EventArgs) _
      Handles btnsenden.Click
 
        Dim p As Diagnostics.Process = Diagnostics.Process.Start("Notepad.exe")
        If p.Handle = IntPtr.Zero Then
            MsgBox("Editor konnte nicht gestartet werden")
        Else
            If Not SetForegroundWindow(p.Handle) Then
                MsgBox("Fenster konnte nicht in den Vordergrund gebracht" & _
                  "werden")
            Else
                Threading.Thread.Sleep(2000)
                SendKeys.Send("Das muß jetzt aber geklappt haben!!!")
            End If
        End If
    End Sub
 
    'Bis hier einfügen 
 
End Class