If
Me
.ComboBox1.ListIndex = 2
Then
ImageGrün.Visible =
False
ImageGelbVisible =
True
ImageRot.Visible =
False
ElseIf
Me
.ComboBox1.ListIndex = 1
Then
ImageGrün.Visible =
True
ImageGelb.Visible =
False
ImageRot.Visible =
False
ElseIf
Me
.ComboBox1.ListIndex = 0
And
Me
.ComboBox7.ListIndex = 1
Then
ImageGrün.Visible =
False
ImageGelb.Visible =
False
ImageRot.Visible =
True
ElseIf
Me
.ComboBox1.ListIndex = 0
And
Me
.ComboBox7.ListIndex = 2
Then
ImageGrün.Visible =
False
ImageGelb.Visible =
True
ImageRot.Visible =
False
ElseIf
Me
.ComboBox1.ListIndex = 0
And
Me
.ComboBox7.ListIndex = 0
And
Me
.ComboBox13.ListIndex = 1
Then
ImageGrün.Visible =
False
ImageGelb.Visible =
True
ImageRot.Visible =
False
End
If