When I display the drawing tool bar, I can create some

The pointer is (after cliking on the shape) a single

Theire is a way, with the DragBehavior function to change
the cursor. But, it's what I feel, my purpose is to set
the 3 value (geoDragOther) but to do it, I need to set
a drawing tool...

So, my new question is the following :

How to make a command button which does the following
steps :

Private Sub Command2_Click()

    ' Choose the basic SHAPE drawing tool - rectangle
    ' Change color / line of this shape (I think I know...)

    ' Set the DragBehaviour to 3 !

End Sub

Vincent BENNER