Public Class MyForm Inherits System.Windows.Forms.Form
  Public MyProgressBar as ProgressBar
' wird erst in InitializeComponents angelegt...
End Class

Public Class Form2  Inherits System.Windows.Forms.Form
  Private myForm as MyForm 
' hier nicht New MyForm(), wir wollen keine neue anlegen, sondern auf eine 
' bestehende zugreifen.
 
  Public Sub New(ByVal _myForm as MyForm)
    myForm = _myForm
  End Sub
 
 
  public Sub BenutzeProgressbar
    myForm.MyProgressBar.Max = 100
  end sub
End Class

  Public Sub CallForm2
    Dim myForm2 as New Form2( me )
    myForm2.ShowDialog()
    myForm2 = nothing
  end Sub