Private Declare Function MoveWindow Lib "user32" ( _
  ByVal hwnd As Long, _
  ByVal x As Long, ByVal y As Long, _
  ByVal nWidth As Long, ByVal nHeight As Long, _
  ByVal bRepaint As Long) As Long
 
Private Declare Function FindWindow Lib "user32" Alias _
  "FindWindowA" (ByVal lpClassName As String, _
  ByVal lpWindowName As String) As Long

WA_hwnd = FindWindow("Winamp v1.x", vbNullString)
 
                    If WA_hwnd = 0 Then
                        ' Befehle (z.B. Fehlermeldung), falls Winamp nicht 
                        ' initialisiert werden konnte
                        MsgBox ("Winamp nicht gestartet oder Fenster nicht" & _
                          "gefunden!")
                    Else
                        MoveWindow WA_hwnd, 100, 150, 400, 300, True
                    End If