VB/VB.NET ½ûÖ¹Ò»¸ö³ÌÐòÔËÐжà´Î

VB.NET ½ûÖ¹Ò»¸ö³ÌÐòÔËÐжà´Î´úÂë:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If UBound(Diagnostics.Process.GetProcessesByName(Diagnostics.Process.GetCurrentProcess.ProcessName)) > 0 Then
MsgBox("µ±Ç°³ÌÐòÒÑÔËÐÐ,Çë½áÊø½ø³ÌºóÖØдò¿ª£¡", vbOKOnly, "Ìáʾ")
Me.Close()
End If
End Sub
''''''''''''''''''''''''''''''''''''
'³ÌÐò´úÂ벿·Ö
'.................
'
'''''''''''''''''''''''''''''''''''
End Class
VB½ûÖ¹Ò»¸ö³ÌÐòÔËÐжà´Î´úÂë:
Private Sub Form_Load()
If App.PrevInstance Then
MsgBox "µ±Ç°³ÌÐòÒÑÔËÐÐ,Çë½áÊø½ø³ÌºóÖØдò¿ª£¡", vbOKOnly, "Ìáʾ"
End If
End Sub
''''''''''''''''''''''''''''''''''''
'³ÌÐò´úÂ벿·Ö
'.................
'
'''''''''''''''''''''''''''''''''''