Private Sub btnBom_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBom.Click
Bom.txtProCodeB.Text = Me.txtProcodeP.Text
Bom.Show()
Me.Close()
End Sub
Private Sub btnBom_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBom.Click
Bom.txtProCodeB.Text = Me.txtProcodeP.Text
Bom.Show()
Me.Hide()
End Sub