VB.NET times table

A teacher wants the program to:
show a visual representation of a multiplication
ask the child to key in an answer

E.G
3 x 4

What is the answer?

This is as far as I can go

Please help. I can't go horizontal. I only go vertical

Module Module1

    Sub Main()
        Dim a, b As Integer
        Dim star As String = "*"

        Dim rand As New Random
        a = rand.Next(1, 10)
        b = rand.Next(1, 10)

        Console.WriteLine(a & " X " & b)
        Dim sum As Double = a * b

        Dim i, x As Integer

        If a > b Then
            i = b
        Else
            i = a
        End If
        For x = 1 To i
            Console.Write(star)
            Console.WriteLine(star)
        Next
        Console.WriteLine()
        Console.WriteLine(sum)
        Console.ReadKey()
    End Sub

End Module