Private segreto As String
Public Sub Form_Open()
Dim ob As Object
For Each ob In LCDLabel1.Children
segreto = Object.Type(ob)
Next
Object.Attach(ob, FMain, "OggettoSegreto")
End
Public Sub OggettoSegreto_Draw()
With Paint
.DrawRichText(segreto, 0, 0, 100, 20)
.End
End With
End