DigiRev
Oct 9th, 2009, 08:43 PM
Private Sub Form_Load()
Dim sinHeight As Single, sinWidth As Single
sinHeight = Me.ScaleY(Me.Height, vbTwips, vbPixels) - Me.ScaleHeight
sinWidth = Me.ScaleX(Me.Width, vbTwips, vbPixels) - Me.ScaleWidth
Me.Width = Me.ScaleX(cmdApply.Left + cmdApply.Width + (GRID_UNIT * 2) + sinWidth, vbPixels, vbTwips)
Me.Height = Me.ScaleY(cmdApply.Top + cmdApply.Height + (GRID_UNIT * 2) + sinHeight, vbPixels, vbTwips)
End Sub
Dim sinHeight As Single, sinWidth As Single
sinHeight = Me.ScaleY(Me.Height, vbTwips, vbPixels) - Me.ScaleHeight
sinWidth = Me.ScaleX(Me.Width, vbTwips, vbPixels) - Me.ScaleWidth
Me.Width = Me.ScaleX(cmdApply.Left + cmdApply.Width + (GRID_UNIT * 2) + sinWidth, vbPixels, vbTwips)
Me.Height = Me.ScaleY(cmdApply.Top + cmdApply.Height + (GRID_UNIT * 2) + sinHeight, vbPixels, vbTwips)
End Sub