影音播放：
RealPlayer 是很受歡迎的播放影音工具，在Visual Basic中可以在專案/設定使用元件/控制項中找到『Real Player ActiveX Control Library 』加以引用，當然，你必須下載並安裝Real Player後才能正常的執行本程式。
軟體是免費的，鍵入關鍵字『Real Player』可以到官方下載，體驗一下自已製作播放工具的樂趣。
Real Player 不但可以播放相當多格式的音樂，還可以播放多種格式的影片，在VB中可以做出來的功能只能是其中的一小部份，效果也遠不如專業的Real Player播放器，當然，你可以在播放同時按滑鼠右鍵，選擇『以Real Player播放』，來播放影片或音樂，當播放影片時還可以『Real Player劇院模式』播放。
目前做出來的功能，僅供參考，很多想做的，還在研究之中，若有那位大大有研究過的經驗，很歡迎你加入分享之列，提供大家寶貴的資訊。
右鍵，選擇『以Real Player播放』
Dim myFile As String
Dim runing As Boolean '播放中
'----------------------------------------------------------------------------------------------------------
Private Sub Form_Load()
'myAudio.SetAutoStart (True) '載入媒體後自動播放
runing = False '預設
myAudio.SetShowVideo True '可播放影片
End Sub
'----------------------------------------------------------------------------------------------------------
Private Sub List1_Click()
Dim getFile As String
getFile = List1.List(List1.ListIndex)
txtFileName = getFile
If runing Then myAudio.DoStop '關閉正在播放
myAudio.Source = getFile
myAudio.DoPlay '播放選取媒體
runing = True '設旗標
End Sub
'----------------------------------------------------------------------------------------------------------
Private Sub btnAdd_Click()
Openfile.Filter = "多媒體檔案(*.wav;*.mp3;*.avi;*.mpg;*.ram)|*.wav;*.mp3;*.avi;*.mpg;*.ram"
Openfile.ShowOpen '開啟檔案對話視窗
myFile = Openfile.FileName '取得媒體檔
If myFile <> "" Then
List1.AddItem myFile
myAudio.SetSource myFile
End If
End Sub
'----------------------------------------------------------------------------------------------------------
Private Sub btnEnd_Click()
End
End Sub
'----------------------------------------------------------------------------------------------------------
Private Sub List1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDelete Then '刪除項目
myAudio.DoStop
List1.RemoveItem List1.ListIndex
End If
End Sub
