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