Private Sub DomainUpDown1()
    If domainupdown1.value = 0 Then Call getal0()





End Sub
Public Class Form1

    Private Sub RectangleShape1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RectangleShape1.Click

    End Sub

    Private Sub getal0()
        LineShape1.BorderColor = Color.Red
        LineShape2.BorderColor = Color.Red
        LineShape3.BorderColor = Color.Black
        LineShape4.BorderColor = Color.Red
        LineShape5.BorderColor = Color.Red
        LineShape6.BorderColor = Color.Red
        LineShape7.BorderColor = Color.Red

    End Sub

    Private Sub getal1()
        LineShape1.BorderColor = Color.Black
        LineShape2.BorderColor = Color.Black
        LineShape3.BorderColor = Color.Black
        LineShape4.BorderColor = Color.Red
        LineShape5.BorderColor = Color.Black
        LineShape6.BorderColor = Color.Red
        LineShape7.BorderColor = Color.Black
    End Sub

    Private Sub getal2()
        LineShape1.BorderColor = Color.Red
        LineShape2.BorderColor = Color.Black
        LineShape3.BorderColor = Color.Red
        LineShape4.BorderColor = Color.Black
        LineShape5.BorderColor = Color.Red
        LineShape6.BorderColor = Color.Black
        LineShape7.BorderColor = Color.Red

    End Sub
    Private Sub getal3()
        LineShape1.BorderColor = Color.Red
        LineShape2.BorderColor = Color.Black
        LineShape3.BorderColor = Color.Red
        LineShape4.BorderColor = Color.Red
        LineShape5.BorderColor = Color.Black
        LineShape6.BorderColor = Color.Red
        LineShape7.BorderColor = Color.Red
    End Sub
    Private Sub getal4()
        LineShape1.BorderColor = Color.Black
        LineShape2.BorderColor = Color.Red
        LineShape3.BorderColor = Color.Red
        LineShape4.BorderColor = Color.Red
        LineShape5.BorderColor = Color.Black
        LineShape6.BorderColor = Color.Red
        LineShape7.BorderColor = Color.Black

    End Sub
    Private Sub getal5()
        LineShape1.BorderColor = Color.Red
        LineShape2.BorderColor = Color.Red
        LineShape3.BorderColor = Color.Red
        LineShape4.BorderColor = Color.Black
        LineShape5.BorderColor = Color.Black
        LineShape6.BorderColor = Color.Red
        LineShape7.BorderColor = Color.Red
    End Sub
    Private Sub getal6()

        LineShape1.BorderColor = Color.Black
        LineShape2.BorderColor = Color.Red
        LineShape3.BorderColor = Color.Red
        LineShape4.BorderColor = Color.Black
        LineShape5.BorderColor = Color.Red
        LineShape6.BorderColor = Color.Black
        LineShape7.BorderColor = Color.Red
    End Sub
    Private Sub getal7()
        LineShape1.BorderColor = Color.Red
        LineShape2.BorderColor = Color.Black
        LineShape3.BorderColor = Color.Red
        LineShape4.BorderColor = Color.Red
        LineShape5.BorderColor = Color.Black
        LineShape6.BorderColor = Color.Red
        LineShape7.BorderColor = Color.Black
    End Sub
    Private Sub getal8()
        LineShape1.BorderColor = Color.Red
        LineShape2.BorderColor = Color.Red
        LineShape3.BorderColor = Color.Red
        LineShape4.BorderColor = Color.Red
        LineShape5.BorderColor = Color.Red
        LineShape6.BorderColor = Color.Red
        LineShape7.BorderColor = Color.Red
    End Sub
    Private Sub getal9()
        LineShape1.BorderColor = Color.Red
        LineShape2.BorderColor = Color.Red
        LineShape3.BorderColor = Color.Red
        LineShape4.BorderColor = Color.Red
        LineShape5.BorderColor = Color.Black
        LineShape6.BorderColor = Color.Red
        LineShape7.BorderColor = Color.Red
    End Sub


End Class