public class A
    Public Property ID() As Integer
        Get
           ....
        End Get
        Set(ByVal value As Integer)
           ...
        End Set
    End Property
 
    Public Property Name() As String
        Get
           ....
        End Get
        Set(ByVal value As String)
           ...
        End Set
    End Property
End Class
 
public class B
    Public Property ID() As Integer
        Get
           ....
        End Get
        Set(ByVal value As Integer)
           ...
        End Set
    End Property
 
    Public Property A_ID() As Integer
        Get
           ....
        End Get
        Set(ByVal value As Integer)
           ...
        End Set
    End Property
End Class

Wer Fehler findet darf sie behalten.