Private Declare Function SetWindowPos Lib _
"User32" (ByVal hwnd As Long, _
ByVal hWndInsertAfter As Long, ByVal x As Long, _
ByVal y As Long, ByVal cx As Long, ByVal cy As Long, _
ByVal wFlags As Long) As Long
 
Private Declare Function FindWindow Lib "User32" Alias _
      "FindWindowA" (ByVal lpClassName As String, _
      ByVal lpWindowName As String) As Long
 
 
Private Sub cmd_option1_Click()
'========METHODE1========================================
wHandle = FindWindow(vbNullString, "Age of Empires expansion")
      Call SetWindowPos(wHandle, -1, 0, 0, 0, 0, 3)
 
wHandle = FindWindow(vbNullString, "Age of Empires")
      Call SetWindowPos(wHandle, -1, 0, 0, 0, 0, 3)
 
 
 Dim AppID As Long
           DoEvents
Dim Wait As Boolean
Wait = 99999
    ' ~ =ENTER-Taste
 
    'NEBEL AUS
    SendKeys "~", Wait = True
    SendKeys "No fog", Wait = True
    SendKeys "~", Wait = True
 
    'KARTE AUFDECKEN
    SendKeys "~", Wait = True
    SendKeys "Reveal Map", Wait = True
    SendKeys "~", Wait = True
 
    'SCHNELLER BAUEN
    SendKeys "~", Wait = True
    SendKeys "Steroids", Wait = True
    SendKeys "~", Wait = True
    MsgBox "Cheats Complete!", vbInformation Or vbOKOnly, "INFO"
End Sub

Private Sub Command1_Click()
For i = 1 To Text1.Text  '<--- Anzahl in Textbox z.B. Der Cheat soll 20mal 
' eingegeben werden
'========METHODE1========================================
wHandle = FindWindow(vbNullString, "Age of Empires expansion")
      Call SetWindowPos(wHandle, -1, 0, 0, 0, 0, 3)
 
wHandle = FindWindow(vbNullString, "Age of Empires")
      Call SetWindowPos(wHandle, -1, 0, 0, 0, 0, 3)
 
Dim AppID As Long
           DoEvents
Dim Wait As Boolean
Wait = 99999
    SendKeys "~", Wait = True
    SendKeys Combo1.Text, Wait = True  'Cheat Codes im ComboBox nehmen was 
    ' ausgewählt wurde
    SendKeys "~", Wait = True
    Next i
 
    'Wenn die Schleife am ende ist, dann eine meldung Ausgeben
    MsgBox "Cheats Complete!", vbInformation Or vbOKOnly, "INFO"
End Sub