<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 Function Zatvori()
Dim i As Integer
Dim Svega As Integer

'Saznaj broj otvorenih formi
Svega = Forms.Count

'Dimenzioniši niz koji e sadržati nazive formi
ReDim IME(Svega) As String
    
'Popuni niz nazivima formi
For i = 0 To Svega - 1
    IME(i) = Forms(i).Name
Next i

'Zatvori sve otvorene forme osim trenutno