Public Sub Form_Open() mostrar([1, 2, 3, 4, 5, 6, 7]) End Public Sub mostrar(atmpvalores As Integer[]) Dim a As Integer Debug "Valores:" For a = 0 To atmpvalores.Max Debug atmpvalores[a], Next End