Таблица умножения - VB

Формулировка задачи:

помогите написать пожалуйста написать программу, выводящую таблицу умножения на число, введенное пользователем. я так понял надо введенное число умножать последовательно на 1,2,3....10 ? типо того :

        Dim a As Integer
        Dim b As Integer
        Dim str As String
        a = TextBox1.Text
        b = 0
        str = ""
        Do While b = a * 10
            b = a * 1
            b = a * 2
            b = a * 3
            b = a * 4
            b = a * 5
            b = a * 6
            b = a * 7
            b = a * 8
            b = a * 9
            b = a * 10
        Loop
        b = str
        Label1.Text = str

Также проверьте ,пожалуйста, правильно я написал программу для определения , является ли число введенное пользователем, простым.

        Dim a As Integer
        Dim b As Integer
        Dim i As Integer
        b = 0
        a = TextBox1.Text
        For i = 2 To a - 1
            If (a Mod i = 0) Then
                b = b + 1
            End If
            If (b = 0) Then Label1.Text = "Простое число" Else Label1.Text = "Не простое число"
        Next
    End Sub

У меня вопросы насчет этого : как найти все делители; вычислить количество делителей; найти наибольший из делителей; найти наименьший из делителей. =)

Решение задачи: «Таблица умножения»

textual
                            Листинг программы 
                        

                            Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Then
            MsgBox("Введите число.", MsgBoxStyle.Critical, "Ошибка")
        ElseIf TextBox1.Text <> "" Then
            ListBox1.Items.Clear()
            Timer1.Enabled = True
        End If
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim a As Integer
        a = Val(TextBox1.Text) * Val(Label1.Text)
        ListBox1.Items.Add(TextBox1.Text & " * " & Label1.Text & "= " & a)
        Label1.Text = Val(Label1.Text) + Val("1")
        If ListBox1.Items.Count = 10 Then
            Timer1.Enabled = False
            Label1.Text = "1"
        End If
    End Sub
                        