Contoh Membuat Video Player sederhana menggunakan VB6

Disini saya akan menjelaskan cara membuat video player sederhana menggunakan Visual Basic 6, dan saya akan memberikan gambarannya seperti yang di bawah ini :


Untuk Kodingannya seperti yang ada di bawah ini :

Private Sub Form_Resize()
WindowsMediaPlayer1.Width = Me.ScaleWidth
WindowsMediaPlayer1.Height = Me.ScaleHeight
End Sub

Private Sub mnAbout_Click()
Me.Hide
frmAbout.Show

End Sub

Private Sub mnexit_Click()
End
End Sub

Private Sub mnopen_Click()
On Error Resume Next
CommonDialog1.ShowOpen
WindowsMediaPlayer1.URL = CommonDialog1.FileName
End Sub

Dan untuk lebih lengkapnya, download link'a dibawah ini :
Video Player

Kritik dan Saran kirim aja dikomentar saya..

Thanks n Good Luck..