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