Imports System.Console
Imports System.Windows.Forms
Public Class Konto
    Private m_Kontonr As String
    Private m_Kontostand As Decimal
    Private m_Dispo As Decimal
 
    Sub New(ByVal Kontonummer As String, _
            ByVal Kontostand As Decimal, _
            ByVal Dispo As Decimal)
        m_Kontonr = Kontonummer
        m_Kontostand = Kontostand
        m_Dispo = Dispo
    End Sub
 
    ReadOnly Property Kontonummer()
        Get
            Kontonummer = m_Kontonr
        End Get
    End Property
 
    ReadOnly Property Kontostand()
        Get
            Kontostand = m_Kontostand
        End Get
    End Property
 
    Property Dispo()
        Get
            Dispo = m_Dispo
        End Get
        Set(ByVal value)
            m_Dispo = value
        End Set
    End Property
 
    Sub Buchung(ByVal Betrag As Decimal)
        m_Kontostand += Betrag
        If m_Kontostand < m_Dispo Then
            k_DispoGrenze()
        End If
    End Sub
 
    Public Sub Ausgabe()
        WriteLine("Kontonr: {0,10}, Kontostand: {1,10:0.00}, Disporahmen" & _
          "{2,10:0.00}", m_Kontonr, m_Kontostand, m_Dispo)
    End Sub
 
    Sub k_DispoGrenze()
 
        Dim s As String
        s = ("Der Betrag kann nicht abgehoben werden," & vbCrLf _
            & "da der Dispositionsrahmen überschritten würde." & vbCrLf _
            & vbCrLf _
            & "Sie können noch " & "An dieser stelle soll der Betrag" & _
            "eingetragen werden" & " Euro" & vbCrLf _
            & "abheben" & vbCrLf _
            & "Bestätigen mit Ja, Abbruch mit Nein.")
 
        MessageBox.Show(s, "Buchung", MessageBoxButtons.YesNo, _
                        MessageBoxIcon.Error, MessageBoxDefaultButton.Button2)
 
    End Sub
 
End Class
 
Public Class Test
    Shared Sub MAin()
        Dim k As New Konto(123, 2000, -3000)
        k.Ausgabe()
        k.Buchung(-4000)
        k.Ausgabe()
        k.Buchung(-2000)
        k.Ausgabe()
        ReadLine()
    End Sub
End Class