Public Sub Line (Byval x As Long, _
                               Byval y As Long, _
                               Byval dx As Long, _
                               Byval dy As Long, _
                               Optional Byval nColor As Long, _
                               Optional Byval sStyle As String)
 
      Select Case Ucase(sStyle)
               Case "B"
                      Picture1.Line (x,y)-(dx,dy),nColor,B
               Case "BF"
                      Picture1.Line(x,y)-(dx,dy),ncolor,BF
               Case Else
                      Picture1.Line(x,y)-(dx,dy),nColor
       End Select
 
End Sub