Option Explicit On
 
Public Class frmKaffee
 
    Inherits System.Windows.Forms.Form
    Dim strGröße As String
    Dim strSchalter As String
 
    Private Sub butAbbrechen_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles butAbbrechen.Click
        Me.Close()
    End Sub
 
<<OK Button Entfernt da Text in beitrag zu lang>>
 
    Private Sub optJumbo_CheckedChanged(ByVal sender As System.Object, ByVal e _
      As System.EventArgs) Handles optJumbo.CheckedChanged
        strGröße = "1 Liter "
    End Sub
 
    Private Sub optGroß_CheckedChanged(ByVal sender As System.Object, ByVal e _
      As System.EventArgs) Handles optGroß.CheckedChanged
        strGröße = "0,5 Liter "
    End Sub
 
    Private Sub optMittel_CheckedChanged(ByVal sender As System.Object, ByVal e _
      As System.EventArgs) Handles optMittel.CheckedChanged
        strGröße = "0,3 Liter "
    End Sub
 
    Private Sub optKlein_CheckedChanged(ByVal sender As System.Object, ByVal e _
      As System.EventArgs) Handles optKlein.CheckedChanged
        strGröße = "0,2 Liter "
    End Sub
 
    Private Sub optWasser_CheckedChanged(ByVal sender As System.Object, ByVal e _
      As System.EventArgs) Handles optWasser.CheckedChanged
        strSchalter = "Wasser"
        Call modKaffeeZubehör.EinAus(strSchalter)
    End Sub
 
    Private Sub optCola_CheckedChanged(ByVal sender As System.Object, ByVal e _
      As System.EventArgs) Handles optCola.CheckedChanged
        strSchalter = "Cola"
        Call modKaffeeZubehör.EinAus(strSchalter)
    End Sub
 
    Private Sub optSchokolade_CheckedChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles optSchokolade.CheckedChanged
        strSchalter = "Schokolade"
        Call modKaffeeZubehör.EinAus(strSchalter)
    End Sub
 
    Private Sub optTee_CheckedChanged(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles optTee.CheckedChanged
        strSchalter = "Tee"
        Call modKaffeeZubehör.EinAus(strSchalter)
    End Sub
 
    Private Sub optKaffee_CheckedChanged(ByVal sender As System.Object, ByVal e _
      As System.EventArgs) Handles optKaffee.CheckedChanged
        strSchalter = "Kaffee"
        Call modKaffeeZubehör.EinAus(strSchalter)
    End Sub
End Class

Module modKaffeeZubehör
 
    Public Sub EinAus(ByVal strSchalter As String)
        If strSchalter = "Wasser" Or strSchalter = "Cola" Then
            frmKaffee.chkZucker.Enabled = False
            frmKaffee.chkMilch.Enabled = False
            frmKaffee.chkMilch.Checked = False
            frmKaffee.chkZucker.Checked = False
        ElseIf strSchalter = "Schokolade" Then
            frmKaffee.chkZucker.Enabled = False
            frmKaffee.chkMilch.Enabled = True
            frmKaffee.chkZucker.Checked = False
        Else
            frmKaffee.chkZucker.Enabled = True
            frmKaffee.chkMilch.Enabled = True
        End If
    End Sub
 
End Module