Make your own free website on Tripod.com

Create Form With 'Don't Show This Message Again'

'Add another form to your project, and place Check Box on it (On Form2).
'Change Check Box caption to "Don't Show This Message Again".
'If you will check the Check Box, the next time you will load your program,
'Form2 will not appear.
'Insert the following code to your form (Form1):

Private Sub Form_Load()
If GetSetting("MyApp", "General", "DontShow", 0) = 0 Then
Form2.Check1.Value = Val(GetSetting("MyApp", "General", "DontShow", 0))
Form2.Show
End If
End Sub

Private Sub Form_Paint()
'This line will put Form2 in front of Form1.
Form2.ZOrder
End Sub

Go Back