Imports System.Windows.Forms
 
Public Class UfoEins
 
    Dim ProgressAction  As IProgressAction
 
    Sub New(ByVal frm As IProgressAction)
        InitializeComponent()
        ProgressAction = 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
        ProgressAction.anzeigen(0, "test")
 
    End Sub
 
End Class