VisulaBasic Play/StopSound

#1 Hallo

Ich habe ein Prob mit dem Stop Sound in VB2008

Zitat

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
PlaySound("J:\Dokumente\Visual Studio 2008\Projects\WindowsApplication2\WindowsApplication2\Sebastian Karlsson - Don't you forget about me.wav", 1)

End Sub

Sub PlaySound(ByVal SoundFile As String, ByVal Volume As Integer)
My.Computer.Audio.Play(SoundFile, Volume)
End Sub
Sub StopSound(ByVal SoundFile As String, ByVal Volume As Integer)
My.Computer.Audio.Stop(SoundFile, Volume)
End Sub
Private Sub ToolTip1_Popup(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PopupEventArgs)

End Sub

Private Sub InternetMajorsToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InternetMajorsToolStripMenuItem.Click
WebBrowser1.Navigate(Label1.Text)
StopSound()
End Sub

Wie muss ich die verändern damit der Sound bei Klick anhält?

Lg