Private Sub Command0_Click()
Public imeprezime As String
Dim imeprezime As String
For Each imeprezime In Form_petlja.Controls
With imeprezime
For .Color = black(0, 0, 0) To RGB(36, 182, 36)
MsgBox imeprezime
Next .Color
End With
End Sub
Private Sub Text1_LostFocus()
imeprezime = Val(Text1.Text)
End Sub
neko ako zna da mi pomogne

