Attribute VB_Name = "testList7"
Sub ƒeƒXƒg()
    Load sampleForm
    sampleForm.listFoods.ColumnCount = 2
    sampleForm.listFoods.RowSource = "ListSheet!B2:C5"
    sampleForm.Show
End Sub