Public Class Form1
' beinhaltete Steuerelemente: Button1, MyTool
    Public Sub Aktion() 
        Button1.Enabled = False                      ' keine Reaktion
        MessageBox.Show("Test")                      ' Meldung kommt
        Me.WindowState = FormWindowState.Minimized   ' keine Reaktion
    End Sub
End Class
 
Public Class MyTool
' beinhaltete Steuerelemente: MyToolButton
    Private Sub MyToolButton_Click(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles MyToolButton.Click
        Form1.Aktion()
    End Sub
End Class