VB6 - Simulate Shift+Click and Ctrl+Click

[TurboBob]

I guess you are trying to select a rang of items in a list like in windows explorer or the likes.
**** lets you select between two points ctrl lets you select additional items.

This is some code that does what I think you want to do:

1. It sends a mouse click to position 100,100 on your screen - regardless of the app
2. it simulates a down shift on the "Shift" Key
3. It mouse clicks on position 100,400
4. it releases the **** key

The effect is it selects whatever is between these two points.

I think this does what you want.

Hope it helps