Select Case Visual Basic 6.0