| 'Add a Command
button to Form1. At Startup Form1 will show form2, then you can use the check boc to tell
your application not to show this form at next startup. With the command button you can
load the form2 even if you have checked the 'don't show this message again' check box. You
can put the Form_Load code even in the Sub Main Sub... Private Sub Command1_Click()
Form2.Check1.Value = Val(GetSetting("MyApp",
"General", "DontShow", 0))
Form2.Show
End Sub
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
'Then create another form (Form2)
and add a check box...the 'Don't show this message again' check box
Private Sub Check1_Click()
SaveSetting "MyApp", "General",
"DontShow", Check1.Value
End Sub |