Private Sub Form_Load() Me.ScaleMode = vbPixels Me.AutoRedraw = True Cls Line (10, 10)-(14, 18), vb3DShadow Line (10, 11)-(14, 18), vb3DShadow Line (17, 10)-(13, 18), vb3DHighlight Line (17, 11)-(13, 18), vb3DHighlight Line (10, 10)-(18, 10), vb3DShadow End Sub
*****************************************************************************
欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码)
http://feiyun0112.cnblogs.com/
Me.ScaleMode = vbPixels
Me.AutoRedraw = True
Cls
Line (10, 10)-(14, 18), vb3DShadow
Line (10, 11)-(14, 18), vb3DShadow
Line (17, 10)-(13, 18), vb3DHighlight
Line (17, 11)-(13, 18), vb3DHighlight
Line (10, 10)-(18, 10), vb3DShadow
End Sub