Private Sub UserForm_Activate() For i = 1 To 5 cmbProductID.AddItem ("PID00" & i) Next i For d = 0 To 25 Step 5 cmbDiscount.AddItem (d) Next d End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)