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