Private Sub Form1_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Leave Me.Visible = False End Sub
Private Sub cLeave(ByVal sender As Object, ByVal e As EventArgs) Handles ToolStrip1.Leave, TextBox1.Leave If Not ToolStrip1.Focused AndAlso Not TextBox1.Focused Then Me.Visible = False End If End Sub