Bestand automatisch opstarten.

[bonnowagt]

Hallo,

Mijn speler start 1 muziekbestand automatisch op. Ik klik in verkenner een muziekbestand aan en dit bestand wordt automatisch afgespeeld met mijn speler.
Maar als ik nu meerdere bestanden aanklik start het programma evenzoveel keer op, in mijn geval dus de meldingen dat het programma reeds is opgestart.
Hieronder de code:

 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            CheckForExistingInstance()            
            Dim Pad As String = My.Application.CommandLineArgs(0)
            Dim Pad2 As String = (Path.GetFileNameWithoutExtension(My.Application.CommandLineArgs(0)))
            Pad = LCase(Pad) : Pad2 = LCase(Pad2)
            If Pad.EndsWith(".mp3") Or Pad.EndsWith(".wav") Or Pad.EndsWith(".flac") Or Pad.EndsWith(".wma") Then
                ListBox1.Items.Add(UCase(Pad))
                ListBox2.Items.Add(UCase(Pad2))
            End If     
        End sub


Public Sub CheckForExistingInstance()
            If Process.GetProcessesByName _
              (Process.GetCurrentProcess.ProcessName).Length > 1 Then
              MsgBox("Mediaspeler is reeds opgestart")
              NotifyIcon1.Visible = False
              System.Diagnostics.Process.GetCurrentProcess().Kill()
              End
            End If     
    End Sub

Wie heeft hierop een oplossing of een aanwijzing