GFSystemMetrics/Form1.frm

VERSION 5.00
Begin VB.Form Form1
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4635
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4635
   StartUpPosition =   3 'Windows‑Standard
   Begin VB.CommandButton Command1
      Caption         =   "Get Some SystemMetrics"
      Height          =   435
      Left            =   2280
      TabIndex        =   0
      Top             =   2700
      Width           =   2295
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'(c)2001, 2004 by Louis.
'
'Downloaded from www.louis‑coder.com.
'Collection of SystemMetrics constants, use this module to avoid annoying API‑Viewer copying.
'The system metrics are numeric values that represent sizes and positions of various Windows
'control items, e.g. the thickness of a scroll bar, etc. Look up MSDN for what the constants
'mean in detail.

Private Sub Command1_Click()
    'on error resume next
    'for testing: scroll bar size information
    Debug.Print GFGetSystemMetrics(SM_CXHTHUMB)
    Debug.Print GFGetSystemMetrics(SM_CXHSCROLL)
    Debug.Print GFGetSystemMetrics(SM_CYHSCROLL)
End Sub


[END OF FILE]