Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
Sub Add_Dynamic_CommandButton()
'Add Dynamic CommandButton and assign it to object 'CmdBtn'
Set CmdBtn = UserForm2.Controls.Add("Forms.CommandButton.1")
With CmdBtn
.Caption = "CommandButton"
.Left = 12
.Top = 10
.Width = 102
End With
UserForm2.Show
End Sub
Sub add_Label()
'dodaj label
Set Labela = UserForm2.Controls.Add("Forms.label.1")
With Labela
.Caption = "Ovo je labela"
.Left = 12
.Top = 50
.Width = 102
End With
UserForm2.Show
End Sub
Sub add_Text()
'dodaj txtbox
Set ctlTxt = UserForm2.Controls.Add("Forms.TextBox.1")