PROCEDURE lstList.MouseWheel(tnDirection, tnShift, tnXCoord, tnYCoord)
WITH This
IF tnDirection < 0
IF .ListIndex < .ListCount
.ListIndex = .ListIndex + 1
ENDIF
ELSE
IF .ListIndex > 1
.ListIndex = .ListIndex - 1
ENDIF
ENDIF
ENDWITH
this.Parent.txtInput.SetFocus
ENDPROC