Изменить цвет линии с помощью Visual Basic

Question

Я создал этот код, чтобы сделать строку. Я использую алгоритм для создания горизонтальной линии

Dim x1 As Integer
Dim y1 As Integer
Dim x2 As Integer
Dim y2 As Integer
Dim grp As Graphics
Dim img As New Bitmap(1, 1)

Public Function intial()
    a = drawingBox.Width / 2
    b = drawingBox.Height / 2
    grp = drawingBox.CreateGraphics()
    grp.TranslateTransform(a, b)
    grp.ScaleTransform(1, -1)

End Function

Public function line()
    y=y1
    for x=x1 to x2 then
         grp.DrawImage(img, x, y)
    next
End Function

Private Sub btnLine_Click(sender As Object, e As EventArgs) Handles btnLine.Click

    x1 = tbX1.Text
    y1 = tbY1.Text
    x2 = tbX2.Text
    y2 = tbY2.Text

    img.SetPixel(0, 0, Color.Black)

    line()


    tbX1.Clear()
    tbY1.Clear()
    tbX2.Clear()
    tbY2.Clear()

End Sub

Есть идеи, как изменить линию, которую я делаю, даже если я нарисовал много линий? (Пожалуйста, измените каждую строку, которую я уже сделал в графическом окне) Спасибо!