画面サイズをDllで取得する
'フォームにコマンドボタンを貼り付けて実行する
Option Explicit
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Const SPI_GETWORKAREA As Long = 48
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 Sub Command1_Click()
Dim lRet As Long
Dim apiRECT As RECT
lRet = SystemParametersInfo(SPI_GETWORKAREA,
vbNull, apiRECT, 0)
End Sub