Public Interface InterPrgBar
 
    Function anzeigen() As String
 
End Interface

Public Class showPrgBar : Implements InterPrgBar
 
    Public Function anzeigen() As String Implements InterPrgBar.anzeigen
        anzeigen = "hurra"
    End Function
 
End Class

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles Button1.Click
        Dim test As New showPrgBar
        MsgBox(test.anzeigen())
    End Sub

 Dim testanzeige As String
 
    Sub New(ByVal testanzeige As String)
        InitializeComponent()
 
        ...... wie übernimmt ein Konstruktor ein Interface  ?????
        ...... und wie binde ich den ProgressBar als Objekt mit ein ?????
    End Sub

Gru? asam