Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowTextLength Lib "User32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Private Declare Function GetWindowText Lib "User32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
 
Public Sub winamp()
Dim p_laenge As Long, p As String
Dim hwndWinamp As Long
Dim text1, text2 As String
Dim titnumb As String
 
hwndWinamp = FindWindow("Winamp v1.x", vbNullString)
p_laenge = GetWindowTextLength(hwndWinamp) + 1
p = Space(p_laenge)
p_laenge = GetWindowText(hwndWinamp, p, p_laenge)
text1 = Left$(p$, p_laenge)
text2 = Replace(text1, "- Winamp", vbNullString)
Label1.Caption = text2
Label2.Caption = Mid(text2, 1, 1)
End Sub
 
Private Sub Form_Load()
 Call winamp
End Sub
 
Private Sub Timer1_Timer()
 Call winamp
End Sub