12 lines
113 B
Text
12 lines
113 B
Text
|
Public Sub Form_Open()
|
||
|
|
Dim siCount As Short
|
||
|
|
|
||
|
|
Do
|
||
|
|
If siCount > 1000 Then Break
|
||
|
|
Inc siCount
|
||
|
|
Loop
|
||
|
|
|
||
|
|
Me.Close
|
||
|
|
|
||
|
|
End
|