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
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
'''''''''''''''''''''It will go here''''''''''''''''''''
Application.Exit()
Else
Dim formMain = New frmMain()
Application.Run(formMain)
End If
End Sub
End Class