Form Window Setup With Pixel Perfect Accuracy

One of the biggest issues with setting up your form for doing graphical programming is to get it right perfectly. You searched on Google how to do it; you messed around with the Widths and Heights; setting the Scalemode to vbPixels; messed around with Screen.TwipsPerPixel X and Y; and....still no luck. It ends up never being the values you put in to begin with, not to mention the borders of the form as well as the top of your window throws off the values a notch. Luckily I created a function that does just that. This simple sub routine will allow you to set the window anywhere you want on screen and allows you to set the size of your form window with pixel perfect accuracy by just the interior of your form window. This assumes that you are using either a borderstyle of sizable, fixed single, or none. After running this small sample program, you will see that the scalewidth and scaleheights are exact as the values you wanted. And if you take a snapshot of it pressing your PrintScreen key, paste it in a paint program, and get the width and heights of within your window, you will see it'll be exactly the number of pixels you wanted. Enjoy as code like this is not easy to come by. It should be universal. If not, you can adjust the offsets. I tested it on a bunch of resolutions and its all the same so far.

[EDIT] Fixed the code shown below. Now it should be ok.
vb Code:
Option Explicit
 
Private Sub Window_Setup(Window As Form, Optional ByVal X As Long = -1, Optional ByVal Y As Long = -1, Optional ByVal Width As Long = -1, Optional ByVal Height As Long = -1, Optional Caption As String = " ", Optional Auto_Redraw As Boolean = False, Optional ByVal Back_Color As Long = -1)
    'Use -1 for default values and "" for default strings.
    With Window
        If Caption <> " " Then .Caption = Caption 'Else use current setting. Note: Some people may want "" as the caption.
        .AutoRedraw = Auto_Redraw
        .ScaleMode = vbPixels
        If X <> -1 Then .Left = X * Screen.TwipsPerPixelX 'Else use current setting.
        If Y <> -1 Then .Top = Y * Screen.TwipsPerPixelY 'Else use current setting.
        If .BorderStyle = vbSizable Then
            If Width <> -1 Then .Width = (Width * Screen.TwipsPerPixelX) + (16 * Screen.TwipsPerPixelX) 'Else use current setting.
            If Height <> -1 Then .Height = (Height * Screen.TwipsPerPixelY) + (38 * Screen.TwipsPerPixelY) 'Else use current setting.
        ElseIf .BorderStyle = vbFixedSingle Then
            If Width <> -1 Then .Width = (Width * Screen.TwipsPerPixelX) + (6 * Screen.TwipsPerPixelX) 'Else use current setting.
            If Height <> -1 Then .Height = (Height * Screen.TwipsPerPixelY) + (28 * Screen.TwipsPerPixelY) 'Else use current setting.
        ElseIf .BorderStyle = 0 Then
            If Width <> -1 Then .Width = (Width * Screen.TwipsPerPixelX) 'Else use current setting.
            If Height <> -1 Then .Height = (Height * Screen.TwipsPerPixelY) 'Else use current setting.
        End If
        If Back_Color <> -1 Then .BackColor = Back_Color 'Else use current setting.
        .Show
        .SetFocus
    End With
End Sub
 
Private Sub Form_Load()
    Window_Setup frmMain, 0, 0, 255, 255
    Print frmMain.ScaleWidth & ", " & frmMain.ScaleHeight
End Sub