Public Class Initialise
Shared Sub Main()
Prevent Multiple Instances of the Application
Dim appProcesses As Process()
appProcesses = Process.GetProcessesByName(Diagnostics.Process.GetCurrentProcess.ProcessName)
If appProcesses.Length > 1 Then
Application.Exit()
Else
It will go here
Dim formMain = New frmMain()
Application.Run(formMain)
End If
End Sub
End Class