> Sub FunctionMenu_Click(ByVal sender As Object, ByVal e As System.EventArgs) > Dim ThisMenu As ToolStripMenuItem = CType(sender, ToolStripMenuItem) > Dim sonForm As Form > sonForm = _ > CType(Activator.CreateInstance(System.Reflection.Assembly.GetExecutingAssembly.GetType("WTS." & ThisMenu.Name.ToUpper)), Form) > > sonForm.MdiParent = Me > sonForm.Show() > End Sub >>
> Private Sub ToolStripPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripPrint.Click > Dim ItemPrint As Form > ItemPrint = New ItemPrint() > ItemPrint.Show() > End Sub >>
> Private Sub FinderItmtype_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FinderItmtype.Click > txtcdesc.text ="" > SelectForm.Show() > End Sub >>
> Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click > ItemPrint.txtcdesc.Text ="aaa" > End Sub >