Option Explicit

Private Type msnmsgstruct
  msncommand As Integer
  Title(0 To 200) As Byte
  Artist(0 To 200) As Byte
  Album(0 To 200) As Byte
  WmCommand(0 To 80) As Byte
End Type

Private Type COPYDATASTRUCT
  dwData As Long
  cbData As Long
  lpData As Long
End Type

Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Const WM_COPYDATA = &H4A

Private Sub Form_Load()

   'Change the Msn song info
   Call ChangeSong("This is the title", "This is the artist", "This is the album")

End Sub

Private Sub Form_Unload(Cancel As Integer)

   'Song stops playing
   Call StopSong
   
End Sub

Public Sub ChangeSong(sTitle As String, sArtist As String, sAlbum As String)

    Dim msndata As COPYDATASTRUCT
    Dim msnpush As msnmsgstruct
    Dim msnui As Long
   
    Dim i As Integer
    msnpush.msncommand = 1
   
    'change title
    sTitle = Chr(0) & sTitle
    For i = 0 To Len(sTitle) - 1
    msnpush.Title(i * 2) = Asc(Mid(sTitle, i + 1, 1))
    Next
   
    'change artist
    sArtist = Chr(0) & sArtist
    For i = 1 To Len(sArtist) - 1
    msnpush.Artist((i * 2) - 1) = Asc(Mid(sArtist, i + 1, 1))
    Next
   
    'change album
    For i = 0 To Len(sAlbum) - 1
    msnpush.Album(i * 2) = Asc(Mid(sAlbum, i + 1, 1))
    Next
   
    'Find window & Send message
    msnui = FindWindow("MsnMsgrUIManager", vbNullString)
    msndata.dwData = &H547
    msndata.lpData = VarPtr(msnpush)
    msndata.cbData = &H2AC
    Call SendMessage(msnui, WM_COPYDATA, Me.hwnd, msndata)
 
End Sub

Public Sub StopSong()

    Dim msndata As COPYDATASTRUCT
    Dim msnpush As msnmsgstruct
    Dim msnui As Long
   
    'Find window & Send message
    msnui = FindWindow("MsnMsgrUIManager", vbNullString)
    msndata.dwData = &H547
    msndata.lpData = VarPtr(msnpush)
    msndata.cbData = &H2AC
    Call SendMessage(msnui, WM_COPYDATA, Me.hwnd, msndata)
 
End Sub