Sub PlayMP3(ByVal Datei As String)
 
' ...
 
End Sub

Dim AktuelleMP3 As Object             ' Oder so
AktuelleMP3 = PlayMP3("C:/Sound1.mp3")
AktuelleMP3.Lautstaerke(80)          ' in Prozent
AktuelleMP3.StartTime(23)              ' in Sekunden
AktuelleMP3.StopAt(60)                    ' in Sekunden
AktuelleMP3.PlayIt()                          ' Abspielen (is klar)
AktuelleMP3.Stop()                            ' Stoppen
AktuelleMP3.Loop = True                 ' Wiederholen als Boolean
AktuelleMP3.Add("C:/Sound2.mp3") ' Eine weitere Datei in die Liste einfügen
AktuelleMP3.NextMP3()                        ' Nächste Datei in der Liste
AktuelleMP3.PrevMP3()                        ' Vorherige Datei in der Liste
Dim Playlist() As String = AktuelleMP3.GetPlaylist() ' Gibt eine Liste aller 
' Dateien in der Liste wieder. (als String-Array)