Private Sub FontsLoad()
        Dim oFF As Drawing.FontFamily
        'progressbar
        Me.ToolStripProgressBar1.Visible = True
        Me.ToolStripProgressBar1.Enabled = True
        'set maximum
        Me.ToolStripProgressBar1.Maximum = FontFamily.Families.Length
 
        For Each oFF In System.Drawing.FontFamily.Families
            If oFF.IsStyleAvailable(0) = False Then
 
            Else
                Me.ToolStripProgressBar1.Value = +1
                Me.ToolStripComboBox1.Items.Add(oFF.Name)
            End If
        Next
        Me.ToolStripComboBox1.SelectedIndex = 0
        'progressbar end
        Me.ToolStripProgressBar1.Value = 0
        Me.ToolStripProgressBar1.Enabled = True
        Me.ToolStripProgressBar1.Visible = False
    End Sub

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
       ' .....vorher wird alles andere abgearbeitet
        FontsLoad()
    End Sub