I'm sure there are otherways to do this but just off the cuff....
vb Code:
Private Sub Form_Load() Dim lngCounter As Long Combo1.Text = Format(CStr(lngCounter), "##0.00") For lngCounter = 0 To 100 Combo1.AddItem Format(CStr(lngCounter), "##0.00") Next lngCounter End Sub




Reply With Quote