|
Option Explicit
Private Sub Command1_Click()
MsgBox "Program created by Albert King 82!!!" & vbCrLf & "Microsoft Visual basic 6" & vbCrLf & "Version 1.1 26\04\2006", vbInformation, "Creator"
End
End Sub
Private Sub Command2_Click()
Form1.Enabled = True
Unload Me
End Sub
Private Sub Command3_Click()
Form1.Enabled = True
Unload Me
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Form1.Enabled = True
Unload Me
End Sub
|
|