VB 2005-MessageBox problems?

[Tarazen]

Hi i have built a mobile phone in VB 2005.I am having difficulty getting it to send messages to another Form(another mobile phone image)
I can get it to send a static message ie:if i type the message in code(On both forms) to send to the other form "Hello Moto" for example-but unable to type that in the message box of the ist phone and get it to display in the message box of the second phone whilst running the program?Any ideas would be very gratefully received as this is needed asap-with thanks
Public Class Mobile_Phone
Dim starPressed As Boolean
Dim phoneLocked As Boolean
Dim phoneUnLocked As Boolean
Dim hashPressed As Boolean
Dim mobile2 As Boolean
Dim msgBox2 As String
Dim messages As String


Private Sub Mobile_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
btnScroll.Enabled = False
starPressed = False
phoneLocked = True
lblLock.Text = "Lock"
Me.PictureBox2.Show()



End Sub

Private Sub btnOFF_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOFF.Click
Me.PictureBox2.Show()
phoneBook.Hide()
phoneNumbers.Hide()
MsgBox1.Hide()
btnScroll.Enabled = False
btnMsg.Enabled = False
LblSend.Hide()
MsgBox1.Clear()
btnMsg.Enabled = False


End Sub

Private Sub btnStar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStar.Click
btnScroll.Enabled = False
btnOFF.Enabled = False
btnON.Enabled = False
PhoneLocked = True
btnMsg.Enabled = False



End Sub

Private Sub phoneBook_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles phoneBook.SelectedIndexChanged
Me.Show()
End Sub

Private Sub btnON_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnON.Click
Me.PictureBox1.Visible = True
btnScroll.Enabled = True
btnMsg.Enabled = True
Me.PictureBox2.Visible = False
LblSend.Hide()
MsgBox1.Hide()


End Sub

Private Sub btnScroll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnScroll.Click
phoneBook.Show()
phoneNumbers.Show()
MsgBox1.Hide()
LblSend.Hide()
End Sub

Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
End Sub

Private Sub btnHash_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHash.Click
btnScroll.Enabled = True
btnOFF.Enabled = True
btnON.Enabled = True
PhoneLocked = False
btnMsg.Enabled = True
End Sub

Private Sub btnMsg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMsg.Click
Messages = MsgBox1.Text
MsgBox1.Show()
phoneNumbers.Hide()
LblSend.Show()
MsgBox1.Text = "Hello Moto"
End Sub

Private Sub LblSend_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs ) Handles LblSend.LinkClicked
frmMobile2.Show()


End Sub
Private Sub MsgBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MsgBox1.TextChanged


End Sub
End Class

Form 2
Public Class frmMobile2
Dim MsgBox1 As String
Dim Messages As String
Private Sub Mobile2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Show()

End Sub

Private Sub MsgBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MsgBox2.TextChanged

MsgBox2.Text = "Hello Moto"

End Sub

Private Sub lblOFF_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblOFF.Click
Me.Close()
End Sub
End Class