Public Sub Main()
MCalendar.CaricaCal
Print MCalendar.RitornoNumero(0, 1), MCalendar.RitornoNumero(1, 1)
End
Private calendario[2, 2] As Integer
Public Sub CaricaCal()
calendario[0, 0] = 12
calendario[0, 1] = 22
calendario[1, 0] = 33
calendario[1, 1] = 66
End
Public Sub RitornoNumero(val1 As Integer, val2 As Integer) As Integer
Dim i As Integer
i = calendario[val1, val2]
Return i
End