有哪些方法可以实现凸起和凹下的效果？

Question

'DrawEdge constants
Public Const BDR_RAISEDOUTER = &H1&
Public Const BDR_RAISEDINNER = &H4&
Public Const BF_LEFT = &H1&             ' Border flags
我用以下法实现了凸起，但不知有没有方法可以实现凹下，怎么实现？
Public Const BF_TOP = &H2&
Public Const BF_RIGHT = &H4&
Public Const BF_BOTTOM = &H8&
Public Const BF_RECT = BF_LEFT Or BF_TOP Or BF_RIGHT Or BF_BOTTOM
Public Const BF_SOFT = &H1000&          ' For softer buttonsPublic Declare Function DrawEdge Lib "user32" (ByVal hDC As Long, qrc As RECT, ByVal edge As Long, ByVal grfFlags As Long) As Boolean
Public Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
    Dim edge As RECT ' Rectangle edge of control    edge.Left = 0  ' Set rect edges to outer
    edge.Top = 0   ' - most position in pixels
    edge.Bottom = UserControl.ScaleHeight
    edge.Right = UserControl.ScaleWidth
    DrawEdge hDC, edge, BDR_RAISEDOUTER, BF_RECT Or BF_SOFT ' Draw Edge...

Answer 1

edge -----------  Long，带有前缀BDR_的两个常数的组合。一个指定内部边框是上凸还是下凹；另一个则指定外部边框。有时能换用带EDGE_前缀的常数。

Answer 2

Const BDR_SUNKENOUTER = &H2
Const BDR_SUNKENINNER = &H8用这2个换掉BDR_RAISEDOUTER就可以了。

Answer 3

4根线  左上2根白色 另外2根黑色 先全部隐藏
一个image在4根线中间当鼠标移上image来的时候4跟线就一起出现 反之隐藏