Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _
(ByVal hWnd1 As Long, _
ByVal hWnd2 As Long, _
ByVal lpsz1 As String, _
ByVal lpsz2 As String) As Long
Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Public Const BM_CLICK = &HF5
 
Sub WinZip_Starten_und_Weiter_betätigen()
' Das Programm startet WinZip und betätigt einmal
' die Schaltfläche "Weiter"
Dim hButton As Long
Dim hParent As Long
Dim ProcId As Long
 
' Voreinstellung von WinZip: Start mit dem Assistenten
ProcId = Shell(PathName:="C:\Programme\WinZip\WinZip32.exe", _
WinDowStyle:=vbMaximizedFocus)
hParent = FindWindow(vbNullString, "WinZip Assistent - Willkommen") 
hButton = FindWindowEx(hParent, 0, "Button", "&Weiter >"
If hButton <> 0 Then
SendMessage hButton, BM_CLICK, 0, 0
Else
MsgBox "Wir haben ein Problem!"
End If
End Sub