how to draw 2 parallel line in visual baisc 6.0 which have same height.. suppose picture box height is 200 then first line starting cordinate is 0,100 and second line cordinate is 100,200.. how we draw..

Recommended Answers

Private Sub Command1_Click()
Picture1.Line (200, 0)-(200, Picture1.Height), vbBlue
Picture1.Line (500, 0)-(500, Picture1.Height), vbBlack

End Sub

Private Sub Form_Load()
    Picture1.DrawWidth = 5
End Sub
Jump to Post

All 2 Replies

Private Sub Command1_Click()
Picture1.Line (200, 0)-(200, Picture1.Height), vbBlue
Picture1.Line (500, 0)-(500, Picture1.Height), vbBlack

End Sub

Private Sub Form_Load()
    Picture1.DrawWidth = 5
End Sub
Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts learning and sharing knowledge.