光碟播放器界面
您可以在VB中創建各種多媒體應用程式 音頻文件播放器，光碟播放器，視頻文件播放器等。為了建立能夠播放多媒體文件或多媒體設備的VB程式，你必須把Microsoft多媒體控j件插入到您的VB應用程序 裡。不過，微軟的多媒體控制件通常不出現在啟動工具箱裡，因此，您需要把MMControl（多媒體控件）加入到工具箱裡。您可按下CTRL +T，並從對話框顯示的組件裡選擇Microsoft Multimedia Control 6.0, 之后多媒體控件就會出現在工具箱中。
光碟播放器界面
Private Sub Form_Load()
'把播放器定位在屏幕中心
Left = (Screen.Width - Width) \ 2
Top = (Screen.Height - Height) \ 2
'啟動CD
myCD.Command = "Open"
End Sub
Private Sub myCD_StatusUpdate()
'更新光碟音軌號碼
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