请问vb中如何实现下凹的分割线以及如何使lable下凹

Question

自己画两根线来模拟Line1:
BorderColor : &H80000003&
X1:0
X2:1000
Y1:0
Y2:0Line2:
BorderColor: &H80000005&
X1:0
X2:1000
Y1:15
y2:15

Answer 1

DrawEdge VB声明 
Declare Function DrawEdge Lib "user32" Alias "DrawEdge" (ByVal hdc As Long, qrc As RECT, ByVal edge As Long, ByVal grfFlags As Long) As Long 
说明 
用指定的样式描绘一个矩形的边框 
返回值 
Long，TRUE（非零）表示成功，否则返回零。会设置GetLastError。（在vb里使用：推荐使用。利用这个函数，我们没有必要再使用许多3D边框和面板。所以就资源和内存的占用率来说，这个函数的效率要高得多。它可在一定程度上提升性能） 
参数表 
参数 类型及说明 
hdc Long，要在其中绘图的设备场景 
qrc RECT，要为其描绘边框的矩形 
edge Long，带有前缀BDR_的两个常数的组合。一个指定内部边框是上凸还是下凹；另一个则指定外部边框。有时能换用带EDGE_前缀的常数。 
grfFlags Long，带有BF_前缀的常数的组合 
注解 
由于这是一个GDI函数，所以矩形坐标是逻辑坐标
 
'== DrawEdge ===================================
'-= edge =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Public Const BDR_RAISEDOUTER = &H1 '外层凸
Public Const BDR_SUNKENOUTER = &H2 '外层凹
Public Const BDR_RAISEDINNER = &H4 '内层凸
Public Const BDR_SUNKENINNER = &H8 '内层凹
Public Const BDR_OUTER = &H3
Public Const BDR_RAISED = &H5
Public Const BDR_SUNKEN = &HA
Public Const BDR_INNER = &HCPublic Const EDGE_RAISED = (BDR_RAISEDOUTER Or BDR_RAISEDINNER)
Public Const EDGE_ETCHED = (BDR_SUNKENOUTER Or BDR_RAISEDINNER)
Public Const EDGE_BUMP = (BDR_RAISEDOUTER Or BDR_SUNKENINNER)
Public Const EDGE_SUNKEN = (BDR_SUNKENOUTER Or BDR_SUNKENINNER)'-= grfFlags =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Public Const BF_LEFT = &H1
Public Const BF_TOP = &H2
Public Const BF_RIGHT = &H4
Public Const BF_BOTTOM = &H8
Public Const BF_DIAGONAL = &H10
Public Const BF_MIDDLE = &H800
Public Const BF_SOFT = &H1000
Public Const BF_ADJUST = &H2000
Public Const BF_FLAT = &H4000
Public Const BF_MONO = &H8000Public Const BF_RECT = (BF_LEFT Or BF_TOP Or BF_RIGHT Or BF_BOTTOM)
Public Const BF_TOPLEFT = (BF_TOP Or BF_LEFT)
Public Const BF_TOPRIGHT = (BF_TOP Or BF_RIGHT)
Public Const BF_BOTTOMLEFT = (BF_BOTTOM Or BF_LEFT)
Public Const BF_BOTTOMRIGHT = (BF_BOTTOM Or BF_RIGHT)
Public Const BF_DIAGONAL_ENDTOPLEFT = (BF_DIAGONAL Or BF_TOP Or BF_LEFT)
Public Const BF_DIAGONAL_ENDTOPRIGHT = (BF_DIAGONAL Or BF_TOP Or BF_RIGHT)
Public Const BF_DIAGONAL_ENDBOTTOMLEFT = (BF_DIAGONAL Or BF_BOTTOM Or BF_LEFT)
Public Const BF_DIAGONAL_ENDBOTTOMRIGHT = (BF_DIAGONAL Or BF_BOTTOM Or BF_RIGHT)