Private Sub Form_Load()
If App.PrevInstance = True Then
MsgBox "โปรแกรมกำลังทำงานอยู่ !!! ไม่สามารถเปิดพร้อมกันได้", vbOKOnly + vbExclamation, "Error !"
End
End If
End Sub
Credit : IT-DARK.ORG
Private Sub Form_Load()
If App.PrevInstance = True Then
MsgBox "โปรแกรมกำลังทำงานอยู่ !!! ไม่สามารถเปิดพร้อมกันได้", vbOKOnly + vbExclamation, "Error !"
End
End If
End Sub