ProcId = Shell(App.Path & "\FProgramm.exe", vbNormalFocus) //fremdanwendung ist _
   bereits innerhalb des verzeichnisses meiner anwendung
hParent = FindWindow(vbNullString, "FProgramm v1.01 (Beta)") //das ist der _
Titel in der TitleBar
hButton = FindWindowEx(hParent, 0, "Button", "Absenden"  //der button heißt _
jetzt "Absenden" und nicht "Sende Nachricht"
 
If hButton <> 0 Then
SendMessage hButton, BM_CLICK, 0, 0
Else
MsgBox "Wir haben ein Problem!"