[super pro]

اخى الكريم هذا مثال عملى لمشرع عملته قبل فترة ارجو تستفيد منه ان شاء الله :

Public Class Form1

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

Dim windows As New frmDisplay
windows.MdiParent = Me
windows.Show()



End Sub

Private Sub داخستنToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles داخستنToolStripMenuItem.Click
End
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
Dim windows As New Stock
windows.MdiParent = Me
windows.Show()
End Sub

Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click
Dim windows As New frmDisplay
windows.MdiParent = Me
windows.Show()
End Sub

Private Sub ToolStripButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton4.Click
Dim windows As New setting
windows.MdiParent = Me
windows.Show()
End Sub

Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton5.Click
Dim windows As New balance
windows.MdiParent = Me
windows.Show()
End Sub

Private Sub ToolStripButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton6.Click
Dim windows As New balance
windows.MdiParent = Me
windows.Show()
End Sub

Private Sub ToolStripButton7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton7.Click
Dim windows As New report
windows.MdiParent = Me
windows.Show()
End Sub

Private Sub ToolStripButton8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton8.Click
Dim windows As New User_Account
windows.MdiParent = Me
windows.Show()
End Sub
End Class

ادعوا لى من ضهر الغيب
والسلام عليكم ورحمة الله وبركاته
[ATTACH=CONFIG]3538[/ATTACH][ATTACH=CONFIG]3539[/ATTACH]