Dim WithEvents Lyrics As EvilLyrics.LyricsRequest
Private Sub Command1_Click()
Call Lyrics.ExitApp
End Sub
Public Sub Form_Load()
Set Lyrics = CreateObject(" EvilLyrics.LyricsRequest")
Call Lyrics.HideWindow
Lyrics.RegisterClient ("{00000609" & "-0000" & "-0010-80" & "00-00AA" & "006D2EA4}")
Lyrics.ArtistName = "Madonna"
Lyrics.SongName = "Erotica"
Lyrics.FindLyrics
Set EvilL = Nothing
End Sub
Public Sub Lyrics_LyricsStatus(ByVal Status As elstatus)
lblStatus.Caption = lblStatus.Caption & Status
End Sub
Public Sub Lyrics_LyricsReceived(ByVal LyricsText As String, ByVal TrustedSource As Boolean)
Text1.Text = LyricsText
End Sub