Private Sub Command1_Click()
Randomize
Open App.Path & "\Tool.ini" For Output As #1
        Print #1, "OpAB="
Select Case Check1.Value
    Case 1
        Print #1, "15 "
    Case 0
        Print Int(900 * Rnd + 100)
End Select
Close #1
 
End Sub