Private Sub ShowErgebnis(ByVal strTextGewicht As String, ByVal _
  strTextErgebnisGewicht As String)
 
        Ergebnis.Show()
 
        Ergebnis.Label_Gewicht.Text             = strTextGewicht
        Ergebnis.Label_Ergebnis_Gewicht.Text    = strTextErgebnisGewicht
 
        If Me.RadioButton_Frau.Checked = True Then
            Ergebnis.BackColor = Color.Red
            Ergebnis.Label_Gewicht.BackColor = Color.Red
            Ergebnis.Label_Ergebnis_Gewicht.BackColor = Color.Red
        Else
            Ergebnis.BackColor = System.Drawing.SystemColors.Control
            Ergebnis.Label_Gewicht.BackColor = _
              System.Drawing.SystemColors.Control
            Ergebnis.Label_Ergebnis_Gewicht.BackColor = _
            System.Drawing.SystemColors.Control
        End If
 
 
    End Sub