Public Class MainForm : Implements IProgressAction
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        Dim FormularEins As UfoEins = New UfoEins(Me)
        FormularEins.Show()
 
    End Sub
 
    Public Function Anzeigen(ByVal progressPercentage As Integer, ByVal _
      progressString As String) As Object Implements IProgressAction.Anzeigen
 
        Anzeigen = MsgBox(Anzeigen(50, "TestString"))
 
    End Function
End Class

Imports System.Windows.Forms
 
Public Class UfoEins
 
    Dim formular As Form
 
    Sub New(ByVal frm As Form)
        InitializeComponent()
        formular = frm
    End Sub
 
    Private Sub UfoEins_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        ' geht nicht. Irgend etwas fehlt noch
        formular.anzeigen()
 
    End Sub
 
End Class

Gru? asam