' 撰寫人：Devil(璉璉)  E-Mail: qvb3377@ms5.hinet.net  僅供學術測試使用，引用請註明原出處
' --------------------------------------------------------------------------------------

Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As enuSystemMetrics) As Long

Private Enum enuSystemMetrics
   SM_CXSCREEN = 0
   SM_CYSCREEN = 1
   SM_CXVSCROLL = 2
   SM_CYHSCROLL = 3
   SM_CYCAPTION = 4
   SM_CXBORDER = 5
   SM_CYBORDER = 6
   SM_CXDLGFRAME = 7
   SM_CYDLGFRAME = 8
   SM_CYVTHUMB = 9
   SM_CXHTHUMB = 10
   SM_CXICON = 11
   SM_CYICON = 12
   SM_CXCURSOR = 13
   SM_CYCURSOR = 14
   SM_CYMENU = 15
   SM_CXFULLSCREEN = 16
   SM_CYFULLSCREEN = 17
   SM_CYKANJIWINDOW = 18
   SM_MOUSEPRESENT = 19
   SM_CYVSCROLL = 20
   SM_CXHSCROLL = 21
   SM_DEBUG = 22
   SM_SWAPBUTTON = 23
   SM_RESERVED1 = 24
   SM_RESERVED2 = 25
   SM_RESERVED3 = 26
   SM_RESERVED4 = 27
   SM_CXMIN = 28
   SM_CYMIN = 29
   SM_CXSIZE = 30
   SM_CYSIZE = 31
   SM_CXFRAME = 32
   SM_CYFRAME = 33
   SM_CXMINTRACK = 34
   SM_CYMINTRACK = 35
   SM_CXDOUBLECLK = 36
   SM_CYDOUBLECLK = 37
   SM_CXICONSPACING = 38
   SM_CYICONSPACING = 39
   SM_MENUDROPALIGNMENT = 40
   SM_PENWINDOWS = 41
   SM_DBCSENABLED = 42
   SM_CMOUSEBUTTONS = 43
   SM_CMETRICS = 44
   SM_CXSIZEFRAME = SM_CXFRAME
   SM_CYSIZEFRAME = SM_CYFRAME
   SM_CXFIXEDFRAME = SM_CXDLGFRAME
   SM_CYFIXEDFRAME = SM_CYDLGFRAME
End Enum

'用來存放屬性值的公用變數
Public CYCAPTION As Long
Public CYBORDER As Long
Public CXFRAME As Long
Public CYFRAME As Long
Public CYMENU As Long
Public CXBORDER As Long
Public CXFULLSCREEN As Long
Public CYFULLSCREEN As Long

Private Sub Class_Initialize()

CXBORDER = GetSystemMetrics(SM_CXBORDER)
CXFRAME = GetSystemMetrics(SM_CXFRAME)
CXFULLSCREEN = GetSystemMetrics(SM_CXFULLSCREEN)
CYBORDER = GetSystemMetrics(SM_CYBORDER)
CYFRAME = GetSystemMetrics(SM_CYFRAME)
CYFULLSCREEN = GetSystemMetrics(SM_CYFULLSCREEN)
CYCAPTION = GetSystemMetrics(SM_CYCAPTION)
CYMENU = GetSystemMetrics(SM_CYMENU)

End Sub