Private Sub Form_Click()
D.im i As Integer
Open (11) As #1
F.or i=1 To 10
(12)
Next i
C.lose #1
E.nd Sub