ClientArea control Resize problem

I am using SuitePro ActiveX 10.1 and VB6
I made a user control. CommandBars was used. A FlexGrid control was used as client area control. I use the code below to resize flexgrid.

Private Sub CommandBars_Resize()
    On Error Resume Next
   
    Dim Left As Long
    Dim Top As Long
    Dim Right As Long
    Dim Bottom As Long
   
    CommandBars.GetClientRect Left, Top, Right, Bottom

    If Bottom > Top And Right > Left Then
        MsFlexGrid1.Move Left, Top, Right - Left, Bottom - Top
       
    End If
End Sub

Then I put this user control on a form. When in design mode, the flexgrid resizes well. But when the form runs, scrollbars of the flexgrid were out of the form. The screenshots were uploaded.

     TempControl1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight

End Sub