Public Interface IPrintable
  Sub Print()
End Interface
Public Interface IInfo
  Sub MessageBox()
End Interface
Public Class Person
  Implements IPrintable, IInfo
  'Einfache Eigenschaften
  Private vorname As String
  Private nachname As String
  Private Geburtsort As String
  Public geburtsdatum As Date
  Public Sub print() Implements IPrintable.Print
    Console.WriteLine(vorname & " " & nachname)
  End Sub
  Public Sub Messagebox() Implements IInfo.MessageBox
    MsgBox(vorname & " " & nachname)
  End Sub
  Public Sub New(ByVal VName As String, ByVal NName As String)
    vorname = VName
    nachname = NName
  End Sub
  End Class

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button2.Click
    objPers(0) = New Person("Hans", "Wurst")
    objPers(0).print()
    objPers(0).Messagebox()
 
  End Sub

Public Class Person
  'Einfache Eigenschaften
  Private vorname As String
  Private nachname As String
  Private Geburtsort As String
  Public geburtsdatum As Date
  Private Shared iAnzahl As Integer
  Public Sub print()
    Console.WriteLine(vorname & " " & nachname)
  End Sub
  Public Sub Messagebox() 
    MsgBox(vorname & " " & nachname)
  End Sub
  Public Sub New(ByVal VName As String, ByVal NName As String)
    vorname = VName
    nachname = NName
  End Sub