VB编译的程序要怎么才会自动运行指定的音乐啊？

1.可以用API:
Private Declare Function sndPlaySound Lib "Winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String,ByVal uFlags As Long) As Long

Private Sub Form_load()
Dim SoundFile As String, Result As Long
SoundFile = "C:\Pwin98\Media\The Microsoft Sound.WAV" '此处为路径
Result = sndPlaySound(SoundFile, 1)
End Sub
'
'
2.使用WINDOWS MEDIA PLAYER控件
'
在窗体添加一个WINDOWS MEDIA PLAYER,然后修改代码如下:
Private Sub Form_Load()
WindowsMediaPlayer1.URL = "F:\赤道和北极.mp3"
WindowsMediaPlayer1.Controls.play
End Sub
'
'
3.使用Multimedia MCI控件,在窗体加入Microsoft Multimedia controls控件,修改代码:
'
Private Sub Form_Load()
MMControl1.Visible = False
MMControl1.FileName = "F:\赤道和北极.mp3"
MMControl1.Command = "open"
MMControl1.Command = "play"
End Sub
&