Private Sub cboZivilstand_TextChanged(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles cboZivilstand.TextChanged
        If cboZivilstand.SelectedText = "ledig" Then
            txtNameEhepartner.Enabled = False
            txtNameEhepartner.BackColor = Color.LightGray
        End If
    End Sub