....
Set ctl = Controls("frm1").Controls.Add("forms.combobox.1", "cboboxsaperp1", True)
With ctl
.Left = 270
.Top = 40
.Width = 100
.Height = 18
.Font.Bold = False
.Font.Name = "Tahoma"
.Font.Size = 9
.BackColor = RGB(255, 255, 255)
.TextAlign = 1
.TabStop = True
.TabIndex = 1
.MaxLength = 10
.Locked = True
End With
es sollen nur diese Möglichkeiten ausgewählt werden :
1.offen
2. erledigt
Voreinstellung = offen
Danke Eric1