Spanish SOLUCIONADO Error : java.lang.ClassCastException: b4c.example.main$_mymessage cannot be cast to b4c.example.prueba$_datos

Sub Process_Globals
    Private ser As B4XSerializator
    Type MyMessage (Name As String)
End Sub

Sub Globals
    Private edtIp As FloatLabeledEditText
    Private lblMyIp As Label
    Private btnConnect As Button
    Private lblStatus As Label
    Private edtAge As FloatLabeledEditText
    Private edtName As FloatLabeledEditText
    Private btnSend As Button
    Private cvs As Canvas
    Private pnlDrawing As Panel
    Private btnprueba As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("1")
    cvs.Initialize(pnlDrawing)
    edtIp.EditText.ForceDoneButton = True
    edtAge.EditText.InputType = edtAge.EditText.INPUT_TYPE_NUMBERS
    edtAge.Text = 10
End Sub

Sub Activity_Resume
    SetState
End Sub

Public Sub SetState
    btnSend.Enabled = Starter.connected
    If Starter.connected Then
        btnConnect.Text = "Disconnect"
        lblStatus.Text = "Connected"
    Else
        btnConnect.Text = "Connect"
        lblStatus.Text = "Disconnected"
    End If
    lblMyIp.Text = "My ip: " & Starter.server.GetMyWifiIP
End Sub

Sub btnSend_Click
    Dim mm As MyMessage
    mm.Initialize
    'mm.Age = edtAge.Text
    mm.Name = edtName.Text
    'convert the bitmap to bytes
'    Dim out As OutputStream
'    out.InitializeToBytesArray(0)
'    cvs.Bitmap.WriteToStream(out, 100, "PNG")
'    out.Close
'    mm.Image = out.ToBytesArray
    CallSub2(Starter, "SendData", ser.ConvertObjectToBytes(mm))
End Sub

Sub btnConnect_Click
    If Starter.connected = False Then
        If edtIp.Text.Length = 0 Then
            ToastMessageShow("Please enter the server ip address.", True)
            Return
        Else
            CallSub2(Starter, "ConnectToServer", edtIp.Text)
        End If
    Else
        CallSub(Starter, "Disconnect")
    End If
End Sub
Sub btnprueba_click
    StartActivity(prueba)
End Sub

Public Sub NewData (data() As Byte)
    Log("newdata main:")
    Dim mm As MyMessage = ser.ConvertBytesToObject(data)
'    edtAge.Text = mm.Age
    edtName.Text = mm.Name
'    'convert the array of bytes to image
'    Dim in As InputStream
'    in.InitializeFromBytesArray(mm.Image, 0, mm.Image.Length)
'    Dim bmp As Bitmap
'    bmp.Initialize2(in)
'    'draw the image
'    Dim dest As Rect
'    dest.Initialize(0, 0, pnlDrawing.Width, pnlDrawing.Height)
'    cvs.DrawBitmap(bmp, Null, dest)
'    pnlDrawing.Invalidate
End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
    Private serial As B4XSerializator
    Private txtrecibido As EditText
    Private lblestado As Label
    Private lblip As Label
    Type datos (Nombre As String)
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("frmmuestra")

End Sub

Sub Activity_Resume
    SetState
End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub
Public Sub SetState
   
    If Starter.connected Then
       
        lblestado.Text = "Connected"
    Else
       
        lblestado.Text = "Disconnected"
    End If
    lblip.Text = "ip: " & Starter.server.GetMyWifiIP
End Sub
Public Sub NewData (data() As Byte)
    Log("newdata prueba:" )
    Dim str As datos = serial.ConvertBytesToObject(data)
    txtrecibido.Text = str.Nombre
   
   
End Sub

Sub UpdateState (NewState As Boolean)
    Log("estado")
    connected = NewState
    CallSub(Main, "SetState")
    CallSub(prueba,"SetState")
End Sub
Sub AStream_NewData (Buffer() As Byte)
    Log("llego info")
   
    CallSub2(Main, "NewData", Buffer)
   
    CallSub2(prueba, "NewData", Buffer)
End Sub

Public Sub SendData (data() As Byte)
    If connected Then astream.Write(data)
End Sub

txtrecibido.Text = str.Nombre

    Log("newdata prueba:" )
    Dim str As datos = serial.ConvertBytesToObject(data)
    txtrecibido.Text = str.Nombre

    Log("newdata prueba:" )
    Dim str As main.MyMessage = serial.ConvertBytesToObject(data)
    txtrecibido.Text = str.name

Public Sub NewData (data() As Byte)
    Log("newdata prueba:" )
    'Dim str As datos = serial.ConvertBytesToObject(data)
    Dim str As MyMessage = serial.ConvertBytesToObject(data)
    'Log ("dato:" & str)
    txtrecibido.Text = str.Name
 
 
End Sub