Private Sub Form_Load()
retvalue = GetSetting("A", "0", "Runcount")
GD$ = Val(retvalue) + 1
SaveSetting "A", "0", "RunCount", GD$
If GD$ > 3 Then ' ????? (3) ???? ??? ???? ???????
MsgBox "????? ??? ????? ???????? .. ???? ????? ?????? ???????"
Unload Form1
End If
End Sub