Событие Click элемента ToolStripButton на неактивной форме

    Private Sub Form1_MouseMove(sender As Object, e As MouseEventArgs) Handles Me.MouseMove
        Me.Activate()
    End Sub

Private Sub Form1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseEnter
        If Not ActiveForm Is Me Then
            Me.Activate()
        End If
    End Sub

Public Class Form1
    Public Event MyActivate As EventHandler
    Public Event MyDeActivate As EventHandler
    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
        Const WM_ACTIVATEAPP As Integer = &H1C
        MyBase.WndProc(m)
        If m.Msg = WM_ACTIVATEAPP Then
            If m.WParam.ToInt32 <> 0 Then
                OnMyActivate(EventArgs.Empty)
            Else
                OnMyDeActivate(EventArgs.Empty)
            End If
        End If
    End Sub
    Protected Sub OnMyActivate(ByVal e As EventArgs)
        RaiseEvent MyActivate(Me, e)
    End Sub
    Protected Sub OnMyDeActivate(ByVal e As EventArgs)
        RaiseEvent MyDeActivate(Me, e)
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox("Button1_Click")
    End Sub
End Class