If (UBound(Diagnostics.Process.GetProcessesByName(Dia  gnostics.Process.GetCurrentProcess.ProcessName)) > 0) Then
messagebox.show("programe is run")
If MsgReturn = 1 Then
End
End If
End If


اینو تو رویداد load فرم بنویس