• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Prevent your app from being unloaded or terminated with this code.(Change)

Prevent your app from being unloaded or terminated with this code.(Change)

Prevent your app from being unloaded or terminated with this code.(Change)

Rate Prevent your app from being unloaded or terminated with this code.(Change)

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

'****it won't quit. If you call END in your code it will bypass this function!
' This is a sample where if Form1 is attempted to be unloaded, a new
' instance of Form1 is created, thus preventing the app from being terminated.
' Of course, you will have to restore any information that will be lost in the
' unload function.  Also, sometimes Unload invokes Terminate, so make sure that
' only one of those procedures contains code.
Private Sub Form_Unload(Cancel As Integer)
Cancel = 1
endsub


Private Sub Form_Unload(Cancel As Integer)
Dim a As New Form1
a.Width = Me.Width
a.Height = Me.Height
a.Left = Me.Left
a.Top = Me.Top
Me.Hide
a.Show
End Sub