Attribute VB_Name = "testCombo3"
Sub テスト()
    Load sampleForm
    sampleForm.foodsCombo.AddItem "りんご"
    sampleForm.foodsCombo.AddItem "オレンジ"
    sampleForm.foodsCombo.AddItem "メロン"
    sampleForm.foodsCombo.Style = fmStyleDropDownList
    sampleForm.Show
End Sub