Attribute VB_Name = "testList6"
Sub テスト()
    Dim foodsArray(2, 2)
    
    foodsArray(0, 0) = "りんご"
    foodsArray(0, 1) = "100円"
    foodsArray(1, 0) = "オレンジ"
    foodsArray(1, 1) = "80円"
    
    Load sampleForm
    sampleForm.listFoods.ColumnCount = 2
    sampleForm.listFoods.List() = foodsArray
    sampleForm.listFoods.List(0, 0) = "メロン"
    sampleForm.Show
End Sub