Public Property Status(ByVal myProgressText As String) As Integer
        Get
            Return Me.statusBar.Panels("progressBar").ProgressBarInfo.Value
        End Get
        Set(ByVal myProgressValue As Integer)
            Me.statusBar.Panels("progressText").Text = myProgressText
            Me.statusBar.Panels("progressBar").ProgressBarInfo.Value = _
              myProgressValue
            If myProgressValue < 100 Then
                Me.statusBar.Panels("progressBar").Visible = True
                Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
            Else
                Me.statusBar.Panels("progressBar").Visible = False
                Me.Cursor = System.Windows.Forms.Cursors.Default
            End If
            Me.statusBar.Refresh()
        End Set
    End Property

            ' Zeige Ladevorgang im Status Bar
            frmMainObj.Status("Lade Konfiguration und Einstellungen...") = _
              Math.Floor(100 * (collectionCounter / noOfRegistredCollections))

Public Module globalData
     ....
       Public frmMainObj As frmMain
     ....
End Module

 frmMainObj = New frmMain()
                frmMainObj.Show()