Attribute VB_Name = "ModSetFlat"
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal Hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal Hwnd As Long, ByVal nIndex As Long) As Long

Public Function SetFlat(ByVal vHwnd As Long)

SetWindowLong vHwnd, -16, &H50008000        '1342210048

End Function

''               ************* 將按鈕設為平面 *************
''
''使用方法1：本窗體中所有按鈕均設為平面
'
'Dim i As Integer
'
'Dim Col As Control
'
'For Each Col In Controls
'
'    If TypeOf Col Is CommandButton Then
'
'        SetFlat Col.Hwnd
'
'    End If
'
'Next
'
''使用方法2：將指定按鈕平面化
'
'SetFlat Command.Hwnd
'
'我的QQ:80524554
'
'MAIL:myjian01@126.com
'
'主頁:http://m5home.365wl.com
'
'
'
'
'
'
'
'
'
'