○VB6　コンボボックス

'-------------------------------------------------------------------------
'コンボボックスをクリアしてItemとItemDataを追加します
'-------------------------------------------------------------------------
Private Sub AddItem(ByRef combo_obj As ComboBox)
    combo_obj.Clear
    combo_obj.AddItem "Item1"
    combo_obj.ItemData(combo_obj.NewIndex) = 111
    combo_obj.AddItem "Item2"
    combo_obj.ItemData(combo_obj.NewIndex) = 222
    combo_obj.AddItem "Item3"
    combo_obj.ItemData(combo_obj.NewIndex) = 333
    combo_obj.AddItem "Item4"
    combo_obj.ItemData(combo_obj.NewIndex) = 444
End Sub

'-------------------------------------------------------------------------
'コンボボックスの現在選択されているItemのItemDataを返します
'-------------------------------------------------------------------------
Private Function getSelectItemData(ByRef combo_obj As ComboBox) As String
    getSelectItemData = CStr(combo_obj.ItemData(combo_obj.ListIndex))
End Function

'-------------------------------------------------------------------------
'コンボボックス　ItemDataを指定することにより、関連付けされているItemを選択します
'-------------------------------------------------------------------------
Private Sub setSelectItem(ByRef combo_obj As ComboBox, ItemData As Double)
    Dim i As Integer
    For i = 0 To combo_obj.ListCount - 1
        If (ItemData = combo_obj.ItemData(i)) Then
            combo_obj.ListIndex = i
            Exit Sub
        End If
    Next i
End Sub