Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim ErsteZahl As New Class1
        ErsteZahl._wert = 5
        Dim ZweiteZahl As New Class1
        ZweiteZahl._wert = 9
 
        MessageBox.Show((ErsteZahl + ZweiteZahl)._wert.ToString)
    End Sub

    Public _wert As Integer
 
 
    Public Shared Operator +(ByVal a1 As Class1, ByVal a2 As Class1) As Class1
        Dim r As New Class1
        r._wert = a1._wert + a2._wert
        Return r
    End Operator

#######
ICQ: 192-576-074
http://codinglukas.co.funpic.de/

Wer fragt ist ein Narr - f?r 5 Minuten.
Wer nicht fragt ist ein Narr - sein Leben lang.
Quarks&Co