Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
Dim frm2 As New Form2
frm2.Show()
frm2.Location = New Point(Me.Left, Me.Top + ToolBar1.Height + 20)
End Sub
ممنون از راهنمایی شما
البته برای دوستانی که ممکنه بخوان از کد بالا استفاده کنن می گم که اگه در فرم شما ممکنه چند فرم باز بشن بهتره که به Location هر کدوم یه مقداری اضافه بشه تا همه فرم ها از یک جا باز نشن.
مثلاً
Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
Dim frm2 As New Form2
frm2.Show()
frm2.Location = New Point(Me.Left + 5 , Me.Top + ToolBar1.Height + 20 + 5 )
End Sub
البته این مقدار 5 برای فرم های مختلف باید متفاوت باشه
موفق باشین