As Long, ByVal grfFlags As Long) As Long
Private Const BDR_RAISEDOUTER = &amp;H1
Private Const BDR_SUNKENOUTER = &amp;H2
Private Const BDR_RAISEDINNER = &amp;H4
Private Const BDR_SUNKENINNER = &amp;H8
Private Const EDGE_RAISED = (BDR_RAISEDOUTER Or BDR_RAISEDINNER)
Private Const EDGE_SUNKEN = (BDR_SUNKENOUTER Or BDR_SUNKENINNER)
Private Const BF_LEFT = &amp;H1
Private Const BF_TOP = &amp;H2
Private Const BF_RIGHT = &amp;H4
Private Const BF_BOTTOM = &amp;H8
Private Const BF_RECT = (BF_LEFT Or BF_TOP Or BF_RI