Selamat mencoba ya sobat, ini yang terbaru !!!!!!!!
jangan lupa, microsoft multimedia control di mbil dari CTRL + T, tandai lalu OK....
microsoft multimedia control name nya mm
Private Sub cmdnext_Click()
mm.Command = "next"
End Sub
Private Sub cmdpause_Click()
mm.Command = "pause"
End Sub
Private Sub cmdplay_Click()
mm.FileName = Dir.Path & "\" & File.FileName
With mm
.Command = "close"
.Command = "Open"
.Command = "stop"
.Command = "play"
End With
Label3.Caption = File.FileName
End Sub
Private Sub cmdprev_Click()
mm.Command = "prev"
End Sub
Private Sub cmdstop_Click()
mm.Command = "stop"
End Sub
Private Sub Dir_Change()
File.FileName = Dir.Path
End Sub
Private Sub Drive_Change()
On Error Resume Next
Dir.Path = Drive.Drive
End Sub
Private Sub File_DblClick()
With mm
.Command = "close"
.FileName = Dir.Path & "\" & File.FileName
.Command = "Open"
.Command = "play"
End With
Label3.Caption = File.FileName
End Sub
Private Sub File_KeyPress(KeyAscii As Integer)
With mm
.Command = "close"
.FileName = Dir.Path & "\" & File.FileName
.Command = "Open"
End With
If KeyAscii = 13 Then
mm.Command = "play"
End If
Label3.Caption = File.FileName
End Sub
Private Sub File_PathChange()
If mm.Command = "stop" Then
File.FileName = "next"
mm.Command = "play"
End If
End Sub
Private Sub Form_Load()
File.FileName = "*.MP3"
Me.Top = 2700
Me.Left = 6000
mm.Visible = False
If mm.Command = "play" And mm.Command = "stop" Then
File.FileName = File.DragIcon
mm.Command = "play"
End If
mm.Wait = False
mm.Shareable = False
mm.NextEnabled = True
End Sub
Private Sub Timer1_Timer()
alex.Visible = Not alex.Visible
End Sub