[LoveVb]

تفضل

كود :

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim btn As New ToolStripButton
       'خصائص الزر
       btn.Text = "vb4arb"
       btn.Image = Image.FromFile("مسار الصورة")
       '
       ToolStrip1.Items.Add(btn) ' إضافته لعناصر الاداة
       AddHandler btn.Click, AddressOf OnClickSBtn1 'إنشاء حدث عن الضغط على الزر
   End Sub
   Sub OnClickSBtn1()
       MsgBox("LoveVb")
   End Sub

عند الضغط على الزر سينفذ الاكواد بداخل OnClickSBtn1