Write a program using while statement to print even-odd number between 1-50

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        While A < 50
            If (A Mod 2 = 0) Then
                ListBox1.Items.Add(A)
                A = A + 1
            Else
                ListBox2.Items.Add(A)
                A = A + 1
            End If
        End While
    End Sub
End Class