Archon Script Kiddies

hmmm,,,,gw rasa semua programmer udah pada tau tentang tutor ini
jadi gw mohon bagi yang udah tau , tutup mulut lo!!! karena tutor ini tidak diperuntukkan untuk elo !!!!!

SO SHAME ON YOU
ok bagi yang perlu tutor ini please open your Vb6 and go to new project

ketikan code ini
Private Sub Command1_Click()
On Error Resume Next
CommonDialog1.Filter = "All Files|*.*"
CommonDialog1.ShowOpen
WindowsMediaPlayer1.URL = CommonDialog1.FileName
Text1 = WindowsMediaPlayer1.currentMedia.Name
Text2 = WindowsMediaPlayer1.currentMedia.sourceURL
Text3 = WindowsMediaPlayer1.Status
Text4 = WindowsMediaPlayer1.versionInfo
File1 = WindowsMediaPlayer1.currentPlaylist



End Sub

Private Sub Command2_Click()
WindowsMediaPlayer1.Controls.stop
Text3 = WindowsMediaPlayer1.Status
End Sub

Private Sub Command3_Click()
WindowsMediaPlayer1.Controls.play
Text3 = WindowsMediaPlayer1.Status
End Sub


Private Sub Command4_Click()
WindowsMediaPlayer1.Controls.fastForward
Text3 = WindowsMediaPlayer1.Status
End Sub

Private Sub Command5_Click()
WindowsMediaPlayer1.Controls.fastReverse
Text3 = WindowsMediaPlayer1.Status
End Sub

Private Sub Command6_Click()
WindowsMediaPlayer1.Controls.pause
Text3 = WindowsMediaPlayer1.Status
End Sub

Private Sub Command7_Click()
End
End Sub

Private Sub Command8_Click()
Load Form2
End Sub