مشاهده می کنید که کادر فایل باز شده و فایل انتخاب شده پخش می شود
private sub Play_Click()
WindowsMediaPlayer1.Controls.Play()
End Sub
'------------------------
Prrivate Sub Stop_Click()
WindowsMediaPlayer1.Controls.Stop()
End Sub
'------------------------
Private Sub Pause_Click()
WindowsMediaPlayer1.Pause()
End Sub
یک تایمر به فرم اضافه کنید و یک HScroll1 و یک Lable
تایمر را به 50 تنظیم کنید.روی تایمر دوبار کلیک کنید وکد زیر را وارد کنید
Private sub Timer1_Timer()
Label1.Caption=WindowsMediaPlayer1.Controls.CurrentPositionString
HScroll1.max=WindowsMediaPlayer1.Controls.CurrentItem
HScrol1.Value=WindowsMediaPlayer1.Controls.CurrentPosition
End Sub
