Public Class MyPDMWcls
    'Das Ereignis
    Public Event Info(ByVal sender As Object)
    Private m_txt As String
 
    Property txt() As String
        Get
            Return m_txt
        End Get
        Set(ByVal value As String)
            m_txt = value
        End Set
    End Property
 
Friend Sub checkout(ByVal Projekt As String, ByVal Datei As String)
        'Dim myprojects As PDMWorks.PDMWProjects
        Dim myproject As PDMWorks.PDMWProject
        Dim mydocs As PDMWorks.PDMWDocuments
        Dim mydoc As PDMWorks.PDMWDocument
        Dim Arbeitsverzeichnis As String = My.Settings.Arbeitsverzeichnis
 
        Try
            If PDMWverbinden() = True Then
                myproject = CType(pdmwconn.Projects.Item(Projekt), _
                  PDMWorks.PDMWProject)
                mydocs = CType(myproject.Documents, PDMWorks.PDMWDocuments)
                For Each mydoc In mydocs
                    txt = mydoc.Name
                    'Hier das Ereignis abfeuern
                    RaiseEvent Info(Me)
                    If mydoc.Name = Datei Then
                        mydoc.Save(Arbeitsverzeichnis)
                    End If
                Next
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Auschecken des Dokuments" & _
              "fehlgeschlagen...")
        End Try
 
    End Sub
End Class

Public Class frmOptionen
 
    Private WithEvents Infotext As MyPDMWcls
 
'Hier sollte nun das Ereignis verarbeitet werden
Private Sub Info(ByVal sender As Object) Handles Infotext.Info
        Dim infotxt As String = CType(sender, MyPDMWcls).txt
        tsslInfo.Text = infotxt
 
    End Sub
 
End Class