Membatasi Program Hanya RUN 1x

ketik listing seperti di bawah ini :

Private Sub Form_Load()

If App.PrevInstance = True Then

MsgBox "Program Telah Aktif !! "

End

End If

End Sub

Selamat Mencoba