Jag vill göra ett program där jag visar en bild i t.x en picturebox samtidigt skall ett ljud i mp3_format spelas upp
Jag vill använda en Listbox där jag kan kan markera vad jad vill se och lyssna på
Detta fungerar men ljudfilen är wav och upprepar sig hela tiden, går ej att ändra på:

 If List2.Text = "Knölsvan" Then
           Text2.Text = "Knölsvan"
           End If
           If Text2.Text = "Knölsvan" Then
                   'Bilden
            Picture1.Picture = LoadPicture(Text1.Text & "\FåglarVB\Bild\Knölsvan.jpg")
                       'Texten
            Label1.Caption = "Knölsvan"
                      'Ljudet
            MMControl1.Visible = "False"
            MMControl1.Command = "Open"
            MMControl1.DeviceType = "WaveAudio"
            MMControl1.FileName = (A$ & "\FåglarVB\Ljudtest\001_Knölsvan.wav")
            MMControl1.Command = "open"
            MMControl1.Command = "play"
            
             If Text2.Text <> "Knölsvan" Then
             
             GoTo 100
            End If
            End If
      '----------------------------------------------------------------------------------------------------------------------

 'Städa mmControllen
    'MMControl1.Command = "Close"
              
    'Sångsvan
            If List2.Text = "Sångsvan" Then
           Text2.Text = "Sångsvan"
           End If
           If Text2.Text = "Sångsvan" Then
       
            'Bilden
            Picture1.Picture = LoadPicture(Text1.Text & "\FåglarVB\Bild\Sångsvan.jpg")
            
            'Texten
            Label1.Caption = "Sångsvan"
            
           'Ljudet
             MMControl1.Visible = "False"
            MMControl1.Command = "Open"
            MMControl1.DeviceType = "WaveAudio"
            MMControl1.FileName = (A$ & "\FåglarVB\Ljudtest\002_Sångsvan.wav")
            MMControl1.Command = "open"
            MMControl1.Command = "play"
            
             If Text2.Text <> "Sångsvan" Then
             
             GoTo 100
            End If
            End If

If Text2.Text <> "Knölsvan" Then
Behöver du inte ha Close Här??
GoTo 100

Vet inte
Det fungerar men ljudet skiftar inte när jag skiftar bild utan bara förtsätter
Kan inte få mp3 att fungera här