Thanks Sir

I found a code in https://docs.microsoft.com/ to places the shape second from the back & its working with group also.
But I need exactly opposite to that.

 
Sub move()
Dim osld As Slide
'change to actual slide number
Set osld = ActivePresentation.Slides(1)
With osld.Shapes("Group 17")
   While .ZOrderPosition > 2
         .ZOrder msoSendBackward
   Wend


End With

End Sub


I manipulate(msoSendForward) with this code but not get desire result.