做出类似Frame边框的那种有凹凸质感的分割线
刚学VB的时候特别想做出这种分割线，可是当时不知道怎么做，昨晚经过搜索终于知道了。。。为方便后人，特地封装成函数：
Private Sub DrawDisabledLine(ByRef LineMain As Line, ByRef LineHelp As Line)
LineMain.BorderColor = &H808080
With LineHelp
.BorderColor = vbWhite
.BorderWidth = 2
.X1 = LineMain.X1
.X2 = LineMain.X2
.Y1 = LineMain.Y1 + 20
.Y2 = .Y1
End With
LineMain.ZOrder 0
End Sub
事先准备：首先放两个Line控件，一个（LineMain）放在你要划线的位置，另外一个（LineHelp）随便放。
使用方法：DrawDisabledLine LineMain, LineHelp
页:
[1]