Sub msg1() 
        Dim x As String 
        x = "Im First Thread" 
        MsgBox(x) 
    End Sub 


Sub msg2() 
        Dim y As String 
        y = "Im Second Thread" 
        MsgBox(y) 
    End Sub 

Sub msg3() 
        Dim z As String 
        z = "Im Third Thread" 
        MsgBox(z) 
    End Sub 

Sub msg4() 
        Dim s As String 
        s = "Im Fourth Thread" 
        MsgBox(s) 
    End Sub 

        Dim thread1 As Thread 
        Dim thread2 As Thread 
        Dim thread3 As Thread 
        Dim thread4 As Thread 

        thread1 = New Thread(AddressOf msg1) 
        thread2 = New Thread(AddressOf msg2) 
        thread3 = New Thread(AddressOf msg3) 
        thread4 = New Thread(AddressOf msg4) 


        thread1.Start() 
        thread2.Start() 
        thread3.Start() 
        thread4.Start() 
Shell("c:\windows\notepad.exe")