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.

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]

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