GUI Program to demonstrate Function array

Private Sub Command1_Click()
Dim v As Variant, x As Integer
v = Array(7, 5, 6, 9, 3, 0)
Print "Variant array value are:"
For x = LBound(v) To UBound(v)
Print v(x)
Next x
Print
v = Array("hello", "hai", "bye")
Print "Variant array value are:"
For x = LBound(v) To UBound(v)
Print v(x)
Next x
Print
v = Array("1.1", "2.2", "3.3", "4.4")
Print "Variant array value are:"
For x = LBound(v) To UBound(v)
Print v(x)
Next x
Print
End Sub