Public Class MyGenericEventHandler


    Public Event Set_ToolTip(ByVal formname As String, ByVal ctlname As String)

    Public Event Pruefplandetail_Saved(ByVal handler As Integer, ByVal key As Integer)
    Public Event Pruefplandetail_Closed(ByVal handler As Integer, ByVal key As Integer)
    Public Event Pruefschrittresultat_saved(ByVal handler As Integer, ByVal key As Integer)
    Public Event pruefschrittresultat_closed(ByVal handler As Integer, ByVal key As Integer)
    Public Event MassnahmeplanDetail_Saveed(ByVal handler As Integer, ByVal key As Integer)
    Public Event MassnahmeplanDetail_Closed(ByVal handler As Integer, ByVal key As Integer)

    Public Function Pruefplandetails_save(ByVal handler As Integer, key As Integer)
        RaiseEvent Pruefplandetail_Saved(handler, key)
    End Function

    Public Function Pruefplandetail_close(ByVal handler As Integer, key As Integer)
        RaiseEvent Pruefplandetail_closed(handler, key)

    End Function
    Public Function Edit_Tooltip(ByVal formname As String, ByVal ctlname As String)
        RaiseEvent Set_ToolTip(formname, ctlname)
    End Function

    Public Function PruefplanResultat_Save(ByVal handler As Integer, ByVal key As Integer)
        RaiseEvent Pruefschrittresultat_saved(handler, key)
    End Function

    Public Function pruefschrittResultat_Close(ByVal handler As Integer, ByVal key As Integer)
        RaiseEvent pruefschrittresultat_closed(handler, key)
    End Function

    Public Function massnahmeplandetail_save(ByVal handler As Integer, ByVal key As Integer)
        RaiseEvent MassnahmeplanDetail_Saveed(handler, key)
    End Function
    Public Function massnahmeplandetail_close(ByVal handler As Integer, ByVal key As Integer)
        RaiseEvent MassnahmeplanDetail_Closed(handler, key)
    End Function
End Class