Public Class Form1
    Inherits System.Windows.Forms.Form
 
    Dim objekt As CKunde
    Private Kunde1 As CKunde
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Kunde1 = New CKunde("Herr" , "Müller")
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        TextBox1.Text = Kunde1.Anrede
        TextBox2.Text = Kunde1.Name
    End Sub
End Class
 
Public Class CKunde
    Public Sub New(Name As String, Anrede As String)
       Me.Anrede = Anrede
       Me.Name = Name
    End Sub
    Public Anrede As String
    Public Name As String
End Class