Inherits System.Windows.Forms.Form
        Dim Wert1 As Integer 
 
Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles butSaveExit_T2.Click
 
Wert1= x + y
 
End Sub

Public Sub Button3_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button3.Click
 
        ÜbertragenerWert = Form2.Wert1
        txtÜbertragenerWert.Text = CStr(ÜbertragenerWert)
 
End Sub

ÜbertragenerWert = Form2.Wert1

Gruß
Christoph