Loops for Odds

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim number1 As Integer = 7
        Dim number2 As Integer = 19
        Dim int0dd As Integer

        For int0dd = number1 To number2
            If int0dd <> (int0dd \ 2) * 2 Then
                LblOddNums.Text = LblOddNums.Text & " " & int0dd.ToString

            End If
        Next int0dd

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim i As Integer = 7
        Do While (i <= 20)
            LblOddNums.Text = LblOddNums.Text & " " & i.ToString
            i = i + 2

        Loop

    End Sub