Aplikasi Running 2 Kali

Function PrevInstance() As Boolean
    If Ubound(Diagnostics.Process.GetProcessesByName(Diagnostics.Process.GetCurrentProcess.ProcessName)) > 0 Then
        Return True
    Else
        Return False
    End If
End Function

'taruh di form_load  
If PrevInstance() = True Then
    'MessageBox.Show("Aplikasi sedang running                ", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information)
    'BO.MyLogger("Aplikasi sedang running")
    End
End If 


atau bisa dengan cara yang lebih simpel lagi seperti ini:
Di Visual Studio IDEnya, pilih Menu ->Project > <nama project> Properties.

Lalu pada window Project Properties, tab Application, section "Windows Application Framework Properties" , conteng (check) "Make Single Application Instance".

selamat menikmati