Public Sub RemovePSM()
Dim r_bshow As Boolean
r_bshow = False
 Dim udtData As COPYDATASTRUCT
 Dim sBuffer As String
 Dim hMSGRUI As Long
 sBuffer = "\0Music\0" & Abs(r_bshow) & "\0" & vbNullChar
 udtData.dwData = &H547
 udtData.lpData = StrPtr(sBuffer)
 udtData.cbData = LenB(sBuffer)
 Do
     hMSGRUI = FindWindowEx(0&, hMSGRUI, "MsnMsgrUIManager", vbNullString)
     If (hMSGRUI > 0) Then
         Call SendMessage(hMSGRUI, WM_COPYDATA, 0, VarPtr(udtData))
     End If    
 Loop Until (hMSGRUI = 0)
End Sub