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