Class Grafikwerte
 
    Public GDN As String
 
    Sub New(ByVal GrafikDateiName As String)
             Me.GDN = GrafikDateiName
    End Sub
 
    Public Overloads Overrides Function Equals(ByVal s As Object) As Boolean
        Return GDN = CType(s, Grafikwerte).GDN
    End Function
 
End Class

Always change a running system...or you will never learn!