<br />
<b>Notice</b>:  Undefined offset: 2 in <b>/home2/icentarb/public_html/icentar/classes/class.permissions.php</b> on line <b>735</b><br />
Public Sub Command1_Click()
    
    Dim imeFile As String
    imeFile = App.Path & "\matrica.bin"
        
    Dim x As Integer
    Dim y As Integer
    Dim z as Integer
    Dim matrica() As String

    Dim junkInt As Integer'ovo je broj i vjerojatno pokazuje velicinu sljedeceg podatka
    			  'moramo ga ucitati ali nam nije bitan
    
    Open file For Binary Access Read Shared As #1
        Get #1, , junkInt
        Get #1, , x
        Get #1, , junkInt
        Get #1, , y
	Get #1, ,junkInt
	Get #1, ,z
        ReDim matrica(1 To x, 1 To y, 1 To z)
        Get #1, , matrica()
    Close #1

    ' mozemo provjeriti velicinu matrice    
    MsgBox UBound(matrica, 1) & vbNewLine & UBound(matrica, 2) & vbNewLine & UBound(matrica, 3)

    'ispis matrice
    Dim f as integer
    Dim e as Integer
    D