ajuste tamano cuadricula

del siguiente codigo: Private Sub Form_Resize() On Error Resume Next grdDataGrid.Width = Me.ScaleWidth grdDataGrid.Height = Me.ScaleHeight - grdDataGrid.Top - 30 - picButtons.Height - picStatBox.Height lblStatus.Width = Me.Width - 1500 cmdNext.Left ...