Max e Cableguy, obrigado pelas dicas...
Hoje à de manhã conheci o Cristiam do Blog IdeiasProgramadas e fizemos juntos os seguintes comandos pois ele nunca usou o B4A.
Para quem precisar fazer algo igual (Podem ser arcaicas e não serem ideais mas funcionaram 100%):
Após criada a nova Activity que chamei de "Relatorio"
1) NA ACTIVITY "MAIN" (Que é a principal):
O botão que abre a tela do Activity Relatório terá:
Sub Button1_Click
StartActivity(Relatorio) 'Abre a activity na tela.
CallSubDelayed2(Relatorio,"reportarx",X) 'Espaçamento final
CallSubDelayed2(Relatorio,"reportarg",G) 'Bitola do estribo
CallSubDelayed2(Relatorio,"reportarr",R) 'Vrd2
CallSubDelayed2(Relatorio,"reportarm",M) 'fctm
CallSubDelayed2(Relatorio,"reportarn",N) 'fctd
CallSubDelayed2(Relatorio,"reportaro",O) 'Vc
CallSubDelayed2(Relatorio,"reportarp",P) 'Vsw
CallSubDelayed2(Relatorio,"reportars",S) 'Asw calculado
CallSubDelayed2(Relatorio,"reportart",T) 'Asw mínimo
CallSubDelayed2(Relatorio,"reportarj",J) 'Espaçamento calculado
CallSubDelayed2(Relatorio,"reportarmaximo",MAXIMO) 'Espaçamento máximo
CallSubDelayed2(Relatorio,"reportarc",C) 'Valor do Vsd
CallSubDelayed2(Relatorio,"reportarverifica",VERIFICA) 'Verifica biela
End Sub
2) NA ACTIVITY "Relatório"
Montada a tela com as Label.Text que desejar os comandos para elas receberem são:
Sub Button1_Click 'Clicando neste botão retorna à tela principal Main
Activity.Finish
End Sub
Sub reportarx (X As Double)
Label22.Text=NumberFormat(X,0,2) 'Espaçamento final
End Sub
Sub reportarg (G As Double)
Label29.Text=NumberFormat(G,0,2) 'Bitola escolhida do estribo
End Sub
Sub reportarr (R As Double)
Label33.Text=NumberFormat(R,0,2) 'Vrd2
End Sub
Sub reportarm (M As Double)
Label34.Text=NumberFormat(M,0,2) 'fctm
End Sub
Sub reportarn (N As Double)
Label35.Text=NumberFormat(N,0,2) 'fctd
End Sub
Sub reportaro (O As Double)
Label36.Text=NumberFormat(O,0,2) 'Vc
End Sub
Sub reportarp (P As Double)
Label37.Text=NumberFormat(P,0,2) 'Vsw
End Sub
Sub reportars (S As Double)
Label38.Text=NumberFormat(S,0,2) 'Asw calculado
End Sub
Sub reportart (T As Double)
Label39.Text=NumberFormat(T,0,2) 'Asw mínimo
End Sub
Sub reportarj (J As Double)
Label40.Text=NumberFormat(J,0,2) 'Espaçamento calculado
End Sub
Sub reportarmaximo (MAXIMO As Double)
Label41.Text=NumberFormat(MAXIMO,0,2) 'Espaçamento MÁXIMO
End Sub
Sub reportarc (C As Double)
Label42.Text=NumberFormat(C,0,2) 'Vsd informado
End Sub
Sub reportarverifica (VERIFICA As String)
Label13.Text=VERIFICA
End Sub