Blah

[DigiRev]

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

[RobDog888]

VB6 code w00t!

[dee-u]

sql code