您可以像这样简单地利用表单的内置事件LostFocus:Private Sub Form1_LostFocus(ByVal sender As Object, ByVal e As EventArgs) _ Handles Me.LostFocus Me.Close() End Sub