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 فرم بنویس
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 فرم بنویس