Class StartClass
    Shared Sub Main(ByVal args() As String)
        If Not System.Diagnostics.Process.GetProcessesByName( _
          Application.ProductName).Length > 1 Then
            Application.Run(New Tool())
        End If
    End Sub
End Class