Draw in a PictureBox

[eimroda]

How can i draw these lines in a picture box?

[peet]

hi eimroda

you can do something like this

Private Sub Form_Load()
    Dim i As Integer
    Dim iHeight As Integer
    iHeight = 500
    Picture1.BackColor = vbWhite
    Picture1.AutoRedraw = True
    For i = 0 To 4
        Picture1.Line (0, iHeight * i)-(Picture1.ScaleWidth, iHeight + (iHeight * i)), vbBlack, B
    Next i
End Sub

[eimroda]

thnx peet! How about the vertical lines?

[peet]

They are there but too close to the edge of the picturebox.

[peet]

try this

Private Sub Form_Load()
    Dim i As Integer
    Dim iHeight As Integer
    iHeight = 500
    Picture1.BackColor = vbWhite
    Picture1.AutoRedraw = True
    For i = 0 To 4
        Picture1.Line (100, iHeight * i)-(Picture1.ScaleWidth - 100, iHeight + (iHeight * i)), vbBlack, B
    Next i
End Sub