Question

i want to “draw” zebra lines in my form

not a table, just lines
black
white
black
white

ican import background image, but I prefer code 🙂

Answer 1

TextBox1.Text = 80
        If IsNumeric(TextBox1.Text) Then
            Dim color As Integer = 1
            Dim top As Integer = 10
            Dim LineNum As Integer = Integer.Parse(TextBox1.Text)
            For i = 0 To LineNum
                Dim line As New Panel
                line.Width = 300
                line.Height = 40

                If color = 1 Then
                    color = 0
                    line.BackColor = Drawing.Color.Black
                Else
                    color = 1
                    line.BackColor = Drawing.Color.White
                End If
                top = top + 40
                line.Top = top
                Me.Controls.Add(line)

            Next

        End If

😉