VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3630
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   5415
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   Moveable        =   0   'False
   ScaleHeight     =   3630
   ScaleWidth      =   5415
   StartUpPosition =   3  'Windows Default
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Type RECT
    lLeft As Long
    lTop As Long
    lRight As Long
    lBottom As Long
End Type

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 Const SPI_GETWORKAREA As Long = 48

Private Sub Form_Load()
    Dim deskRECT As RECT
    Call SystemParametersInfo(SPI_GETWORKAREA, 0&, deskRECT, 0&)
    With deskRECT
        Me.Move .lLeft * Screen.TwipsPerPixelX, _
                .lTop * Screen.TwipsPerPixelY, _
                (.lRight - .lLeft) * Screen.TwipsPerPixelX, _
                (.lBottom - .lTop) * Screen.TwipsPerPixelY
    End With
End Sub