Aufrufe von Klassen untereinander

Hallo Forum,
in meinem Projekt habe ich folgendes Konstrukt:

Eine Klasse "Import" besitzt eine Funktion "StatusfensterNeu", die ein Formular aus einer Klasse "Statusfenster" anzeigt. Jetzt habe ich eine neue Klasse "Vergleich" angelegt, die ebenfalls das Formular anlegt. Der Code dazu sieht verkürzt wie folgt aus:


Public Class Import
Dim mbo_StatusFenster As StatusFenster
Dim m_Status as String
...

Public Sub WordImport()
mbo_StatusFenster = New StatusFenster
m_status = MboStatusfensterNeu("Alte Daten löschen", "1/15: ", 100)
...
End Sub

Public Function MboStatusfensterNeu(q As String, switch As String, fortschritt As Double) As String
...
If mbo_StatusFenster.Visible = False Then mbo_StatusFenster.Show
...
End Sub

End Class


Jetzt habe ich eine neue Klasse "Vergleich", die ebenfalls dieses Statusfenster anzeigen soll. Mein Code sieht wie folgt aus:

Public Partial Class Vergleich
Dim mbo_StatusFenster As StatusFenster
Dim m_Status as String
Dim mbo_Import As New Import
...

Sub Tabellen_vergleichen
mbo_StatusFenster = New StatusFenster
m_status = mbo_Import.MboStatusfensterNeu("Alte Daten löschen", "1/15: ", 100)
...
End Sub

End Class


Ich bekomme jedoch immer eine Fehlermeldung, dass der Verweis nicht auf eine Objektinstanz gelegt wurde. Die Funktion MboStatusfensterNeu wird jedoch aufgerufen, da ich dort noch eine temporäre MsgBox anzeigen lassen kann. Will ich jedoch das Formular anzeigen, bricht das Makro ab. Irgendwie wird die Klasse StatusFenster nicht korrekt erkannt. Wie muss ich meinen Code umstellen, damit das Ganze funktioniert?

Vielen Dank,
M. Born

Public Class Import
  Dim mbo_StatusFenster As StatusFenster
  Dim m_Status as String
  ...

  Public Sub WordImport()
    mbo_StatusFenster = New StatusFenster
    m_status = MboStatusfensterNeu("Alte Daten löschen", "1/15: ", 100)  
    ...
  End Sub

  Public Function MboStatusfensterNeu(q As String, switch As String, fortschritt As Double) As String
    ...
    If mbo_StatusFenster.Visible = False Then mbo_StatusFenster.Show
    ...
  End Sub
End Class 

Public Partial Class StatusFenster
  Public Sub New()
    Me.InitializeComponent()
  End Sub
  ...
End Class

Public Partial Class Vergleich
  Dim mbo_StatusFenster As StatusFenster
  Dim m_Status as String
  Dim mbo_Import As New Import
  ...

  Sub Tabellen_vergleichen
    mbo_StatusFenster = New StatusFenster
    m_status = mbo_Import.MboStatusfensterNeu("Alte Daten löschen", "1/15: ", 100)  
    ...
  End Sub
End Class

Der Objektverweis wurde nicht auch eine Objektinstanz festgelegt. 
bei FKGenDNA.Importer.MboStatusfensterNeu(String q, String switch, Double fortschritt).

mbo_StatusFenster.label1.Text = "Schritt " & switch & q  

Public Partial Class Vergleich 
  Dim mbo_StatusFenster As New StatusFenster
 ...