Public Sub New()
    Wert = mvarWert
    Farbe = mvarFarbe
End Sub

Public Property Wert() As Integer
    Get
      Return mvarWert
    End Get
    Set(ByVal Value As Integer)
      'wertigkeit der Karte errechnen
      ' Sicherstellen, daß bei jedem Start wirklich
      ' eine neue Zufallszahlen-Folge generiert wird
      Randomize()
 
      Dim oZahl As New System.Random
 
      mvarWert = oZahl.Next(1, 14)
 
      Value = mvarWert
    End Set
  End Property

Dim Karte1 As New CKarte
Dim Karte2 As New CKarte
 
Zu Testzwecken lass ich mir die Werte auf 2 Labels anzeigen.
 
lblWert1.Text = Karte1.Wert
lblWert2.Text = Karte2.Wert