Public Class Form1
    Private jetzt As Date = Now.ToShortDateString
    Private MyECB As New ECBExchanges
    ' Internet-Adresse
    Public ECPXMLAddress As String = _
      "http://www.ecb.int/stats/eurofxref/eurofxref-daily.xml"
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Waehrungsliste_Enter()
    End Sub
 
#Region "Waehrungsliste aus Zentralerdatenbank"
    Private Sub Waehrungsliste_Enter()
        Try
            'ohne diese prozedur funktioniert es garnicht
            System.Net.ServicePointManager.SecurityProtocol = _
              System.Net.SecurityProtocolType.Tls12
            'fill Data from XML
            filldata_totable()
            'zum Beispiel USD (Dollar)
            find_corecct_Waehrung()
 
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
 
    End Sub
 
    'fill Datatable
    Public Sub filldata_totable()
        Dim dt As New DataTable
 
        dt.Columns.Add("currenct", GetType(String))
        dt.Columns.Add("rate", GetType(Decimal))
        Dim doc As XDocument = XDocument.Load(ECPXMLAddress)
 
        Dim ns As XNamespace = doc.Root.GetDefaultNamespace()
        For Each cube As XElement In doc.Descendants(ns + "Cube").Where( _
          Function(x) Not x.Attribute("currency") Is Nothing)
 
 
            Dim currency As String = CType(cube.Attribute("currency"), String)
            Dim rate As Decimal = CType(cube.Attribute("rate"), Decimal)
            dt.Rows.Add(New Object() {currency, rate})
 
        Next
 
        dgv_currency.DataSource = dt
 
    End Sub
 
    'find Row and selected
    Private Sub find_corecct_Waehrung()
        Dim code As String = "USD"
        For Each row As DataGridViewRow In dgv_currency.Rows()
            If row.Cells(0).Value.ToString().Equals(code) Then
                row.Selected = True
 
                'groupbox Bezeichnungen erstellen
                grb_wechselkurs_eur.Text = String.Concat("EUR TO " & row.Cells( _
                  0).Value).ToString
 
                'Wert aus DGV übernehmen
                Dim d As Decimal = Convert.ToDecimal(row.Cells(1).Value)
                'Textbox Wert übernehmen
                tb_kurs_to.Text = d
 
                'in Label Währungssymbo(Land) anzeigen
                Label190.Text = row.Cells(0).Value
 
                'refrech bzw. berechnen
                berechnen()
 
 
                Exit For
            End If
        Next
 
    End Sub
 
    Private Sub dgv_currency_CellClick(sender As Object, e As _
      DataGridViewCellEventArgs) Handles dgv_currency.CellClick
        Dim index As Integer
        index = e.RowIndex
        Dim seltedrow As DataGridViewRow
        seltedrow = dgv_currency.Rows(index)
 
        'groupbox Bezeichnungen erstellen
        grb_wechselkurs_eur.Text = String.Concat("EUR TO " & seltedrow.Cells( _
          0).Value).ToString
 
 
        'Wert aus DGV übernehmen
        Dim d As Decimal = Convert.ToDecimal(seltedrow.Cells(1).Value)
        'Textbox Wert übernehmen
        tb_kurs_to.Text = d
 
        'in Label Währungssymbo(Land) anzeigen
        Label190.Text = seltedrow.Cells(0).Value
 
 
        'refrech bzw. berechnen
        berechnen()
 
    End Sub
 
    Private Sub berechnen()
        Dim conversionRate As Decimal = Convert.ToDecimal(tb_kurs_to.Text)
        Dim totalAmount As Decimal = Convert.ToDecimal(nud_Factor1.Value)
 
        Dim convertedTotal As Double = conversionRate * totalAmount
 
        tb_to_ergebnis.Text = convertedTotal
 
        grb_converto.Text = String.Concat(nud_Factor1.Value & " " & _
          Label187.Text & " = " & convertedTotal & " " & Label190.Text)
    End Sub
 
    'Berechnen neue Eingabe EURO
    Private Sub btnconvert_Click(sender As Object, e As EventArgs) Handles _
      btnconvert.Click
        berechnen()
    End Sub