Code Snippet
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox(111)
End Sub
Private Sub Test()
Application.DoEvents()
End Sub
Private Sub Button1_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Enter
Test()
End Sub
End Class