Option Explicit

Private Sub Command1_Click(index As Integer)
  Dim i As Integer

  Select Case index
    Case 1
      For i = 0 To Printer.FontCount - 1
        List2.AddItem Printer.Fonts(i)
      Next i
      Label1(3).Caption = Str$(i)
    Case 2
      For i = 0 To Screen.FontCount - 1
        List1.AddItem Screen.Fonts(i)
      Next i
      Label1(2).Caption = Str$(i)
    Case Else
      Unload Me
      End
  End Select
End Sub