Instance Checker
![Visual Basic 6, or VB Classic Visual Basic 6, or VB Classic](https://www.fortypoundhead.com//assets/img/icons/v7/vb6.png)
This simple few lines of code will give the user and error message if they are already running your program. Doesn't apply if you are in the ide!
Original Author: Tyler Badger
Code
Private Sub Form_Load() ' the form1 loading sub
If App.PrevInstance Then ' check if running
MsgBox "Error:" & vbCrLf & "Please switch to your already running app." ' error message
Dim frm As Form ' set frm variable as a form
For Each frm In Forms ' get all forms
Unload frm ' unload the form
Set frm = Nothing ' set frm variable as nothing
Next frm ' go to the for each frm again
End If ' end the if statement
End Sub ' end the form load
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.