Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
    intScreenWidth = GetSystemMetrics(17)' Screen Width
    intScreenHeight = GetSystemMetrics(16)' Screen Height
End Function