get winamp update in vb form

1st Make a Module And Past These Functions:
Code:
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public lHandle As Long


Function getWinampWindow()
lHandle = FindWindow("Winamp v1.x", vbNullString)
If lHandle > 0 Then
Dim lRet As Long
Dim sTitle As String * 256
Dim sCaption As String
lRet = GetWindowText(lHandle, sTitle, Len(sTitle))
sCaption = Left(sTitle, InStr(1, sTitle, vbNullChar, vbTextCompare) - 10)
Do
If IsNumeric(Left(sCaption, 1)) = True Or Left(sCaption, 1) = "." Or Left(sCaption, 1) = " " Then
sCaption = Right(sCaption, Len(sCaption) - 1)
Else
Exit Do
End If
Loop
Do
If IsNumeric(Right(sCaption, 1)) = True Or Right(sCaption, 1) = ")" Or Right(sCaption, 1) = " " Or Right(sCaption, 1) = ":" Then
sCaption = Left(sCaption, Len(sCaption) - 1)
ElseIf Right(sCaption, 1) = "(" Then
sCaption = Left(sCaption, Len(sCaption) - 1)
Exit Do
Else
Exit Do
End If
Loop
getWinampWindow = sCaption
Else
getWinampWindow = "Winamp 6 Not Found"
End If
End Function


Now come to the form.Make a Timer (Timer1) (Interval :1000) and Label (Label1)
Now Past Following Codes Into The Timer:
Code:
Private Sub Timer1_Timer()
Timer1.Enabled = False
Label1.Caption = getWinampWindow
Timer1.Enabled = True
End Sub


Now run the project. You will see the current song title which is playing in Winamp.

yo bai tnx... aidai khuji