Public Class Adress
  Public Property LastName as String....
  ....
End Class
 
Public Class AdressEditForm
  Public Property EditAdress as Adress...
 
  Private Sub AdressEditForm_Load(ByVal sender As System.Object, ByVal e As _
    System.EventArgs) Handles MyBase.Load
    if EditAdress is Nothing Then
      EditAdress = new Adress()
    End If
 
    'DataBinding machen
  End Sub
.....
End Class
 
Public Class MainForm
....
  Private Sub EditAdress( ByVal editAdress as Adress)
    Using edit as New AdressEditForm()
      edit.EditAdress = editAdress
      if( edit.ShowDialog() = DialogResult.OK ) Then
        ' Mach was mit edit.EditAdress
      End If
    End Using
  End Sub