<code>Private Sub Form_Load()
  <font color=green>' zunächst Eingabefeld inaktiv machen</font>
  Text1.Enabled = False
 
  <font color=green>' Kombinationsfelder mit Inhalten füllen</font>
  Combo1.AddItem "Option1"
  Combo1.AddItem "Option2"
 
  Combo2.AddItem "Option1"
  Combo2.AddItem "Option2"
 
  Combo3.AddItem "Option1"
  Combo3.AddItem "Option2"
End Sub
 
Private Sub Combo1_Click()
  <font color=green>' Prüfen</font>
  Text1.Enabled = OptionsOK()
End Sub
 
Private Sub Combo2_Click()
  <font color=green>' Prüfen</font>
  Text1.Enabled = OptionsOK()
End Sub
 
Private Sub Combo3_Click()
  <font color=green>' Prüfen</font>
  Text1.Enabled = OptionsOK()
End Sub
 
<font color=green>' Prüfroutine</font>
Private Function OptionsOK() As Boolean
  Dim bResult As Boolean
 
  bResult = ((Combo1.ListIndex = 0) And _
    (Combo2.ListIndex = 1)  And _
    (Combo3.ListIndex = 0))
 
  OptionsOK = bResult
End Sub</code>