Public Event test()

Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles ToolStripButton1.Click
    RaiseEvent test()
End Sub

Public Class Form1
 
    Public Sub New()
 
        ' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
        InitializeComponent()
 
        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf 
        ' hinzu.
        AddHandler MDIParent1.test, AddressOf test
 
 
 
    End Sub
 
 
    Private Sub test()
        If Me.Focused Then MsgBox("Funktion aufgerufen!")
    End Sub
 
End Class

Mit freundlichen Gr??en
DotNetErbse


[Es hei?t Paket und nicht Packet, auch wenn Standard augenscheinlich von Standar(t)e kommt,hei?t es dennoch Standar(d)]