Girilen Sayıya Kadar Yine Başka Girilen Bir Sayıya Bölünen Sayılar

Public Class Form1

    Dim i, bolum As Integer

    Dim bolunecek, bolen As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        ListBox1.Items.Clear()

        bolunecek = TextBox1.Text

        bolen = TextBox2.Text

        If bolunecek > 0 Then

            For i = 1 To bolunecek

                If i Mod bolen = 0 Then

                    ListBox1.Items.Add(i)

                End If

            Next

        End If

    End Sub

End Class