ma non comprendo (anche se ci sara' ...) il motivo di una tale richiesta ...codice:Private Type myStruc iNum As Integer str As String lNum As Long End Type Dim t As myStruc Private Sub Form_Click() Print Hex$(VarPtr(t)) Print Print Hex$(VarPtr(t.iNum)) Print Hex$(VarPtr(t.str)), Hex$(StrPtr(t.str)) Print Hex$(VarPtr(t.lNum)) End Sub