CASE SELECTS

[TD]

How do create a case select statement from these two
seperate events.

FormDetail_MOUSEMOVE
If lblChildren.Fontbold = True Then
lblChildren.Fontbold = False
End If

If lblFamily.Fontbold = True Then
lblFamily.FontBold = False
End If

If lblDiary.FontBold = True Then
lblDiary.FontBold = False
End If
END SUB


FormDetail_MOUSEMOVE
If lblChildren.ForeColor = YELLOW Then
lblChildren.ForeColor = WHITE
End If

If lblFamily.ForeColor = YELLOW Then
lblFamily.ForeColor = WHITE
End If

If lblDiary.ForeColor = YELLOW Then
lblDiary.ForeColor = WHITE
End If
END SUB

 

[Douglas J. Steele]

SELECT CASE statements are meant to check for specific values for a single
object or variable, not to check for the same value for multiple objects or
variables.

While it might be possible to rig up a SELECT CASE statement that would
work, why would you?

What's the actual problem you're trying to solve?