Private Sub Command1_Click()
  Dim i
  Dim MojePole(1 To 5) As Byte
  For i = 1 To 5
    MojePole(i) = i
  Next
  Zobraz MojePole
End Sub

Function Zobraz(ByRef sPole As Variant)
  Dim x
  For x = LBound(sPole) To UBound(sPole)
    MsgBox sPole(x)
  Next
End Function

Příspěvky ke článku:

---