Sub main
    Dim startPoint As MbePoint
    Dim point As MbePoint, point2 As MbePoint

'   Rotate icon settings

    MbeSendKeyin "rotate icon;set item toolsettings rotatemethod=1;set item toolsettings rotateaboutorigintoggle=1"
    MbeSendKeyin "set item toolsettings usefencetoggle=0;set item toolsettings makecopytoggle=0"

'   Select just placed cell at origin

    MbeSendKeyin "dl=0;dl=0"
    
End Sub
    

 