Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles Button1.Click
        '// create statusbar & panel
        Dim stBar1 As New System.Windows.Forms.StatusBar
        Dim StatusBarPanel1 As New System.Windows.Forms.StatusBarPanel
        Dim StatusBarPanel2 As New System.Windows.Forms.StatusBarPanel
        Dim StatusBarPanel3 As New System.Windows.Forms.StatusBarPanel
 
        stBar1.Location = New System.Drawing.Point(0, 378)
        stBar1.Name = "stBar1"
        stBar1.Panels.AddRange(New System.Windows.Forms.StatusBarPanel() _
          {StatusBarPanel1, StatusBarPanel2, StatusBarPanel3})
        stBar1.ShowPanels = True
        stBar1.Size = New System.Drawing.Size(598, 35)
        stBar1.TabIndex = 1
        stBar1.Text = "StatusBar1"
        StatusBarPanel1.Name = "StatusBarPanel1"
        StatusBarPanel2.Name = "StatusBarPanel2"
        StatusBarPanel3.Name = "StatusBarPanel3"
        Me.Controls.Add(stBar1)
 
        '// set text
        StatusBarPanel2.Text = "my panel"
        StatusBarPanel3.Text = Now.ToString
 
        ' Position der StatusBar ermitteln
        Dim p As Point
        p = stBar1.Location
 
        ' neue ProgressBar
        Dim pbar As New ProgressBar
 
        ' Größe festlegen
        pbar.Size = New Size(180, stBar1.Height - 4)
 
        ' linken Rand festlegen
        Dim pbarLeft As Integer
        pbarLeft = p.X + stBar1.Panels(0).Width + _
          stBar1.Panels(1).Width
 
        ' Position festlegen
        pbar.Location = New Point(1, 3)
        pbar.Height = stBar1.Height - 3
        pbar.Width = stBar1.Panels(0).Width - (pbar.Location.X * 2)
        pbar.Step = 1
 
        ' ProgressBar der StatusBar hinzufügen
        stBar1.Controls.Add(pbar)
 
        ' Berechnung ausführen
        Dim i As Integer
        For i = 1 To 100
            Threading.Thread.Sleep(20)
            pbar.PerformStep()
        Next
 
        ' ProgressBar wieder entfernen
        stBar1.Controls.Remove(pbar)
    End Sub