Instance

I want to prevent two instances of a VB application run at one time.How can i do that?

Code:

---

Public Sub main()
    If App.PrevInstance Then
        Exit Sub
    End If
End Sub

---

Thanks for your answer.
Another question:
How can I show the previous Instance if it's minimized?