第二次组合模块组合不工作

Question

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
    trapnum = trapnum + 1
    Module1.thetext = cbname.text 'room1
    room1.Show()
    Me.Hide()
End Sub

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
    trapnum = trapnum + 1
    Module1.thetext = cbname.Text 'room3
    room3.Show()
    Me.Hide()
End Sub

按下button6后，Room3表单将获得cbname.text值，并在保存后再次返回此表单。并尝试单击button5，它不会将cbname.text传递给room1表单。

反之亦然如果我先点击button5它会得到而且room3将无法获得cbname.text的值我需要做什么？

第一次传递后，我无法再使用module1.thetext传递cbname.text。我的意思是我的编码只是第一次工作，我需要再次关闭我的应用程序再次工作。