>main page >-------------------- >Public Class mainpage > > Private Sub JobToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JobToolStripMenuItem.Click > clinetInformation.ShowDialog() > End Sub > >Private Sub JobToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JobToolStripMenuItem1.Click > jobInformation.ShowDialog() > End Sub >end class > >jobinformation page >------------------------- >Public Class jobInformation 'set the breakpoint , first time is ok , but second no interrupt > Dim pass As Integer > >Private Sub jobInformation_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load > 'set the breakpoint , first time is ok , but second no interrupt > >If pass = 1 Then > If clinetInformation.txtCompany_no.Text <> "" Then > cmboCompanyId.Text = clinetInformation.txtCompany_no.Text > End If >end sub > Public Property companypass() As Integer > Get > Return Me.pass > End Get > Set(ByVal value As Integer) > pass = value > End Set > End Property >end class >--------------------------------------------------------------------------------------- >clinetInformation page > >Public Class clinetInformation > > >Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butPost.Click > jobInformation.companypass = 1 > jobInformation.Show() > End Sub >end class >