[specci48]

Der Button und das zugehörige Menu sollen identischen Code ausführen.
Hierzu kann man auch die Sub eines Events direkt aufrufen, z.B.

Sub Button1_Click
	' tue hier etwas sehr wichtiges ;-)
End Sub

Sub Menu1_Click
        ' tue genau das, was bei Button1 läuft
	Button1_Click
End Sub

Und noch etwas eleganter - man weist dem Standardevent vom Button und von dem Menu nicht eine eigene Sub zu, sondern direkt eine identische:

Sub App_Start
	Form1.Show
	AddEvent("Button1", Click, "Button1_oder_Menue1")
	AddEvent("Menu1", Click, "Button1_oder_Menue1")
End Sub

Sub Button1_oder_Menue1
	' tue hiuer etwas wichtiges für Button1 und Menue1
End Sub

Gruß
specci48