Membuat CD Player

The Code:
Private Sub Form_Load()
'To position the page at the center
Left = (Screen.Width - Width) \ 2
Top = (Screen.Height - Height) \ 2
'Initialize the CD
myCD.Command = "Open"

End Sub


Private Sub myCD_StatusUpdate()


'Update the track number
trackNum.Caption = myCD.Track
End Sub



Private Sub Next_Click()
myCD.Command = "Next"
End Sub



Private Sub Play_Click()
myCD.Command = "Play"

End Sub



Private Sub Previous_Click()
myCD.Command = "Prev"
End Sub

Private Sub Stop_Click()
myCD.Command = "Stop"
End Sub

Tweet

Subscribe to receive free email updates: