Public Class cTest
  Public Event Progress(ByVal sender As Object, ByVal value As String)
  ...

RaiseEvent Progress(Me, "Hier der Wert")

Dim WithEvents MyDLL As cTest

Private Sub Form_Load(...)
  MyDLL = New cTest
...

Private Sub MyDLL_Progress(ByVal sender As Object, ByVal value As String) _
  Handles MyDLL.Progress
  Label1.Text = value
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de