Double Line in VB

Morning...

Anybody know how to do a double line in VB6 with
a PictureBox? I had thought that setting
DrawStyle to vbInsideSolid would do it, but
that is apparently not the case...

Help?

You can write your own Function for it.

Code:

---

Private Function DLine(object As Object, X1 As Single, Y1 As Single, X2 As Single, Y2 As Single, iWidth As Long)

    object.Line (X1, Y1)-(X2, Y2)
    object.Line (X1, Y1 - iWidth)-(X2, Y2 - (iWidth + 10))
   
End Function

---

Usage:
DLine object, X1, Y1, X2, Y2, iWidth
[list][*]object is any object that supports the Line method.(Such as the PictureBox).[*]The next 4 are the X and Y Coordinates of the Line.[*]And the next is by how much you want to separate the Lines by.
[/code]

Code:

---

DLine Picture1, 100, 100, 2500, 1200, 19

---