Combo1.ListIndex = 0
Private Sub Form_Activate() Dim a As Integer For a = 1 To 30 Step 1 Combo1.AddItem a Next Combo1.ListIndex = 0 End Sub
With Me.Combobox1 .Items.Insert(0, "ID") .Items.Insert(1, "NAME") .Items.Insert(2, "DESCRIPTION") .SelectedIndex = 0 End With
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)