ocr: a Projecti - Forml -X Command2 Click This is a totally bogsu Option Explicit screenshot Private Sub Cormandi Click() Dim 1 As Long Dim c1 As Classi For 1 == 1 To CLng(Text1) Set c1 = New Classi Next Beep End Sub Private Sub Cormand2 Click() Dim 1 As Long For 1 == - 1 To CLng(Text1) End Sub avtcm048a