是弄个图片浏览器,可以播放音乐的?
找个开源MP3,放IMAGE1,用

X=INPUTBOX'OR COM
IMAGE1.PICTURE=LOADPICTURE(X)

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
这个就可以播放mid音乐的啊!

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

Private Sub Command1_Click()

mciExecute "open " & App.Path & "\TEST.MID alias MIDI type sequencer" '打开并初始化MIDI序列发生器
mciExecute "play MIDI" '播放Midi音乐

End Sub

Private Sub Command2_Click()

mciExecute "pause MIDI" '暂停Midi

End Sub

Private Sub Command3_Click()

Unload Me

End Sub

Private Sub Form_Unload(Cancel As Integer)

mciExecute "close MIDI" '关闭Midi

End Sub