Form Window Setup With Pixel Perfect Accuracy

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