Option ExplicitDim i As IntegerPrivate Sub Command1_Click()
i = i + 1
Combo1.AddItem i
Combo1.ListIndex = Combo1.ListCount - 1End SubPrivate Sub Command2_Click()
Combo1.RemoveItem 0
Combo1.ListIndex = 0End SubPrivate Sub Form_Load()
Combo1.AddItem iEnd Sub...