'Listing 26.2 26LIST02.TXT  --- Tablica napisw

Private Sub Command1_Click()
Dim CatArray(5) As String

CatArray(0) = "K.C."
CatArray(1) = "Sammy"
CatArray(2) = "Patches"
CatArray(3) = "Stik"
CatArray(4) = "Spaz"


For X = 0 to 4
  Form1.print "CatArray(" & X & " ) = " & CatArray(X)
Next X

End Sub
