Public Class Form1
    Public b As New clsProgress
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
       'dies hier ist in einer normalen anwendung kein günstiger ort etwas 
       ' anzeigen zu lassen - weiss ich
       'nur als beispiel
        b.ShowForm()
    End Sub
End Class

Public Class clsProgress
    Dim frmNewForm As Form
 
    Public Sub ShowForm()
        frmNewForm.Show()
    End Sub
 
    Public Sub Close()
        frmNewForm.Close()
    End Sub
End Class