Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' Start up the BackgroundWorker1.
        BackgroundWorker1.RunWorkerAsync()
    End Sub

    Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        Dim ourproc = New System.Diagnostics.Process()
        ourproc.StartInfo.FileName = "c:\progra~1\WI54FB~1\wmplayer.exe"
        ourproc.StartInfo.Arguments = ""
        ourproc.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
        ourproc.StartInfo.WorkingDirectory = "C:\Users\Public\Music\Sample~1\"
        ourproc.StartInfo.UseShellExecute = True
        For i As Integer = 0 To 10
            ourproc.StartInfo.Arguments = ourproc.StartInfo.Arguments + " C:\Users\Public\Music\Sample~1\kalimba.mp3"
        Next
        ourproc.Start()
    End Sub

    Private Sub Form1_Activated(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Activated
        Me.Focus()
    End Sub

    Private Sub Form1_FormClosed(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed
        Shell("TASKKILL /f /im wmplayer.exe", AppWinStyle.Hide, False, -1)
    End Sub
End Class