Dim animals = New String() {"アメンボ", "イノシシ", "ウマ", "エリマキトカゲ", "オオカミ"} Dim results = From animal In animals Select animal.Length ListBox1.Items.AddRange(results.Cast(Of Object).ToArray())