ここでは変数aが10になるまでループさせるということにします。

　　　    While a <= 10

                     a += 1

                    System.Windows.Forms.Application.DoEvents()

               End While

を入れると、ユーザーの割り込みが可能になるはずです。この状態で、終了させるコード

    End

とか

           Close()

とやるといいはず。
なら

　　　    While a = 10

                     a += 1

                    DoEvents

               Wend

です。