إذا كان عندك زرين وعند الضغط على زر 1 يتم تنفيذ الكود في الأمر 2
فما عليك إلا استعمال إحدى الطريقتين
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Button2_Click(Nothing, Nothing)
'أو بواسطة الأمر التالي
Button2.PerformClick()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
MsgBox("Clicked")
End Sub