Option Explicit On
Option Strict On
 
Imports System
 
Public Class MainForm
    Private Const DM As Decimal = 1.95583D 'Deutsche Mark
    Private Const BEF As Decimal = 40.3399D 'Belgische Franc
    Private Const ATS As Decimal = 13.7603D 'Östreichische Schilling
    Private Const FRF As Decimal = 6.55957D 'Französische Franc
 
    Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub txtBetrag_KeyPress(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.KeyPressEventArgs) Handles txtBetrag.KeyPress
        Select Case AscW(e.KeyChar)
            Case 46, 48 To 57, 8
                'Dezimalkomma, Ziffern und Backspace zulassen
            Case Else
                e.Handled = True
        End Select
    End Sub
 
    Private Sub btnUmrechnen_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnUmrechnen.Click
        Dim Betrag As Decimal = CDec(txtBetrag.Text)
        Dim Ergebnis As Decimal
 
        MsgBox(cmbFrom.SelectedText)
        MsgBox(cmbFrom.SelectedIndex)
        MsgBox(cmbFrom.SelectedItem)
 
        Select Case cmbFrom.SelectedText
            Case cmbFrom.Items.Item(1).ToString()
                'Euro in Euro umrechnen
                lblErgebnis.Text = "Sie können nur in Euro umrechnen"
            Case cmbFrom.Items.Item(1).ToString()
                'Deutsche Mark in Euro umrechnen
                Ergebnis = Math.Round(Betrag / DM, 2)
                lblErgebnis.Text = txtBetrag.Text & " DM sind " & "umgerechnet" & _
                  "" & Ergebnis.ToString() & " Euro."
            Case cmbFrom.Items.Item(2).ToString()
                'Belgische Franc in Euro umrechnen
                Ergebnis = Math.Round(Betrag / BEF, 2)
                lblErgebnis.Text = txtBetrag.Text & " BEF sind " & "umgerechnet" & _
                  "" & Ergebnis.ToString() & " Euro."
            Case cmbFrom.Items.Item(3).ToString()
                'Französische Franc in Euro umrechnen
                Ergebnis = Math.Round(Betrag / FRF, 2)
                lblErgebnis.Text = txtBetrag.Text & " FRF sind " & "umgerechnet" & _
                  "" & Ergebnis.ToString() & " Euro."
            Case cmbFrom.Items.Item(4).ToString()
                'Östreichische Schilling in euro umrechnen
                Ergebnis = Math.Round(Betrag / ATS, 2)
                lblErgebnis.Text = txtBetrag.Text & " ATS sind " & "umgerechnet" & _
                  "" & Ergebnis.ToString() & " Euro."
        End Select
    End Sub
End Class

Select Case cmbFrom.SelectedText

Select Case cmbFrom.SelectedIndex