Try this simple code:
Public Class Form1
Dim FlagCancel As Boolean
Private Sub Start_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Start.Click
FlagCancel = False
Do While FlagCancel = False
My.Application.DoEvents()
Loop
End Sub
Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
FlagCancel = True
End Sub
End Class