Private Sub PopulateListBoxWithFonts()
    listBox1.Width = 200
    listBox1.Location = New Point(40, 120)
    Dim oneFontFamily As FontFamily
    For Each oneFontFamily In FontFamily.Families
        listBox1.Items.Add(oneFontFamily.Name)
    Next
End Sub

private void PopulateListBoxWithFonts()
{
    listBox1.Width = 200;
    listBox1.Location = new Point(40, 120);
    foreach ( FontFamily oneFontFamily in FontFamily.Families )
    {
        listBox1.Items.Add(oneFontFamily.Name);
    }
}

private:
   void PopulateListBoxWithFonts()
   {
      listBox1->Width = 200;
      listBox1->Location = Point(40,120);
      System::Collections::IEnumerator^ myEnum = FontFamily::Families->GetEnumerator();
      while ( myEnum->MoveNext() )
      {
         FontFamily^ oneFontFamily = safe_cast<FontFamily^>(myEnum->Current);
         listBox1->Items->Add( oneFontFamily->Name );
      }
   }

private void PopulateListBoxWithFonts()
{
    listBox1.set_Width(200);
    listBox1.set_Location(new Point(40, 120));

    //foreach (FontFamily oneFontFamily in FontFamily.Families)
    for (int iCtr = 0; iCtr < FontFamily.get_Families().length; iCtr++) {
        FontFamily oneFontFamily = FontFamily.get_Families()[iCtr];
        listBox1.get_Items().Add(oneFontFamily.get_Name());
    }
} //PopulateListBoxWithFonts