Как отцентрировать своё окно/форму, точно так же, как центрируется стандартный инпутбокс в VB6?

    Dim tWorkArea   As RECT
    Dim tWndRect    As RECT
    Dim lLeft       As Long
    Dim lTop        As Long
    
    SystemParametersInfo SPI_GETWORKAREA, 0, tWorkArea, 0
    GetWindowRect hwnd, tWndRect
    
    lLeft = tWorkArea.iLeft + (tWorkArea.iRight - tWorkArea.iLeft - (tWndRect.iRight - tWndRect.iLeft)) \ 2
    lTop = tWorkArea.iTop + (tWorkArea.iBottom - tWorkArea.iTop - (tWndRect.iBottom - tWndRect.iTop)) \ 3
    
    MoveWindow hwnd, lLeft, lTop, tWndRect.iRight - tWndRect.iLeft, tWndRect.iBottom - tWndRect.iTop, 0

Option Explicit
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal CX As Long, ByVal CY As Long, ByVal wFlags As Long) As Long
 
Private Const SPI_GETWORKAREA = 48
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOZORDER = &H4
 
Private Type RECT
    iLeft As Long
    iTop As Long
    iRight As Long
    iBottom As Long
End Type
 
Private Sub Command1_Click()
    Me.Caption = InputBox("123", "456")
End Sub
 
Private Sub Form_Load()
    Dim tWorkArea As RECT
    Dim tWndRect As RECT
    Dim lLeft As Long
    Dim lTop As Long
    
    SystemParametersInfo SPI_GETWORKAREA, 0, tWorkArea, 0
    GetWindowRect hwnd, tWndRect
    
    lLeft = tWorkArea.iLeft + (tWorkArea.iRight - tWorkArea.iLeft - (tWndRect.iRight - tWndRect.iLeft)) \ 2
    lTop = tWorkArea.iTop + (tWorkArea.iBottom - tWorkArea.iTop - (tWndRect.iBottom - tWndRect.iTop)) \ 3
    
    SetWindowPos hwnd, 0, lLeft, lTop, 0, 0, SWP_NOSIZE Or SWP_NOZORDER
End Sub

          hMonitor = MonitorFromWindow(hwndDlg, MONITOR_DEFAULTTONEAREST)
                MI.cbSize = LenB(MI)
                
                If GetMonitorInfo(hMonitor, MI) <> 0 Then