[VB.NET] طلب تعديل كود بسيط جداً - نسخة قابلة للطباعة

PHP كود :
Private Sub ButtonX7_Click(sender As Object, e As EventArgs) Handles ButtonX7.Click
        Dim ofd As New OpenFileDialog
        ofd.Filter = "Image Formats (*.PNG; *.JPG; *.BMP) | *.PNG; *.JPG; *.BMP | All Files (*.*) | *.*"
        If ofd.ShowDialog = DialogResult.OK Then
            If ofd.FileName <> String.Empty Then
                Me.PictureBox1.Image = Bitmap.FromFile(ofd.FileName)
                PictureBox1.Image.Save(ms, PictureBox1.Image.RawFormat)
                Dim bytimage() As Byte = ms.ToArray
                chaptemad1.Send(String.Concat(New String() {"<message xmlns='jabber:client' type='groupchat' to='", room1.Text, "@conference.s.chatp.net'><body /><c xmlns='u:x:room_image'><url>", Image.FromStream(ms), "</url></c></message>"}))
            End If
        End If
    End Sub