Мозг программы Ханойская башня!!! - VB

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

Доброго времени суток!!! к понедельнику задали на Visual Basic сделать программу "ханойскую башню". Суть такова:Рисуем три палки,на первой палки 3 фигурки Большая,средняя и маленькая, нужно с первой палки перебросить фигурки на вторую,при этом нельзя чтобы большая фигурка лежала на маленькой,прошу помогите составить мозг программы. P.S Заранее благодарен!!!

Решение задачи: «Мозг программы Ханойская башня!!!»

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

                            Private Sub Hanoy(N As Integer, fromH As Integer, toH As Integer, bufferH As Integer)
If N <> 0 Then
    Hanoy N - 1, fromH, bufferH, toH
    Text1.Text = Text1.Text + CStr(fromH) + " -> " + CStr(toH) + vbCrLf
    colHod = colHod + 1
    Hanoy N - 1, bufferH, toH, fromH
End If
End Sub
                        