Private Sub cboZivilstand_SelectedIndexChanged(ByVal sender As Object, ByVal e _
  As System.EventArgs) Handles cboZivilstand.SelectedIndexChanged
        If cboZivilstand.Text = "ledig" Or cboZivilstand.Text = "" Or _
        cboZivilstand.Text = "geschieden" _
        Or cboZivilstand.Text = "unverheiratet" Then
            txtNameEhepartner.Enabled = False
            txtNameEhepartner.BackColor = Color.LightGray
            datHeiratDat.Enabled = False
            datHeiratDat.BackColor = Color.LightGray
            datGebDatEhep.Enabled = False
            datGebDatEhep.BackColor = Color.LightGray
        Else
            txtNameEhepartner.Enabled = True
            txtNameEhepartner.BackColor = Color.White
            datHeiratDat.Enabled = True
            datHeiratDat.BackColor = Color.White
            datGebDatEhep.Enabled = True
            datGebDatEhep.BackColor = Color.White
        End If
    End Sub