Posted on January 5, 2009
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
| 'Forms - How to Create a Form with "Don't show this message again"
Option Explicit
'Add two forms to your project and place the Check Box on 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.
Private Sub Form_Load()
If GetSetting("TestApp", "General", "DontShowMe", 0) = 0 Then
Form2.Check1.Value = Val(GetSetting("TestApp", "General", "DontShowMe", 0))
Form2.Show
End If
End Sub
Private Sub Form_Paint()
'This line will put Form2 in front of Form1.
Form2.ZOrder
End Sub |