Private Sub Form_Load()
Me.Hide
Dim s
's = Shell("D:\winamp\winamp.exe ", 1) 'winamp normal
 'winamp minimize
s = Shell("d:\winamp\winamp.exe " & "d:\tsm.m3u", 2)
Unload Me
End Sub