程序代码：

Option Explicit

Private Sub Form_Load()
    pvComboAdd Combo1, "姓名1", 12345
    pvComboAdd Combo1, "姓名2", 12346
    pvComboAdd Combo1, "姓名3", 12347
End Sub

Private Sub pvComboAdd(cbo As Control, sText$, nData&)
    cbo.AddItem sText
    cbo.ItemData(cbo.NewIndex) = nData
End Sub