Assegnare ad un Puntatore la rappresentazione numerica di un indirizzo di memoria contenuto da un altro Puntatore

Come è noto la variabile di tipo Puntatore contiene l'indirizzo di memoria di una variabile.

Tale indirizzo di memoria è un numero che è facilmente visibile in rappresentazione esadecimale in questo modo:

Public Sub Main()

 Dim i As Integer
 Dim p As Pointer

  i = 999

  p = VarPtr(i)

  Print p;; CStr(p)

End

Sappiamo che, per assegnare un'indirizzo di memoria, contenuto da un Puntatore, ad un altra variabile di tipo Puntatore, è sufficiente procedere con un normale assegnamento fra le due variabili Puntatore:

Public Sub Main()

 Dim i As Integer
 Dim p1, p2 As Pointer

  i = 999

  p1 = VarPtr(i)

  p2 = p1

  Print p1;; p2

End

E' possibile assegnare l'indirizzo di memoria, contenuto da una variabile Puntatore, ad altra variabile Puntatore anche attraverso la diretta assegnazione della mera rappresentazione numerica dell'indirizzo di memoria medesimo:

Public Sub Main()

 Dim i As Integer
 Dim p1, p2 As Pointer
 Dim s As String

  i = 999

  p1 = VarPtr(i)

' Estrapoliamo il numero dell'indirizzo di memoria nella sua rappresentazione esadecimale:
  s = Cstr(p1)

' Assegnamo direttamente il numero dell'indirizzo di memoria, dopo averlo convertito in decimale, all'altra variabile di tipo Puntatore:
  p2 = Val("&" & s)

' Verifichiamo il risultato:
  Print Int@(p2)

End

Un'altra modalità simile alla precedente, convertendo l'indirizzo - contenuto dal Puntatore - in un valore di tipo Long:

Public Sub Main()
 
 Dim p1, p2 As Pointer
 Dim i As Integer
 Dim l As Long
  
  i = 4444
  
  p1 = VarPtr(i)
  Print p1
  
' Converte l'indirizzo - contenuto dal Puntatore - in un valore di tipo "Long":
  l = CLong(p1)
  
  p2 = l
  Print p2
  
  Print Int@(p2)
  
  Processus(l)
  
End


Private Procedure Processus(vl As Long)
 
 Dim p3 As Pointer
 
 Print
 Print Hex(vl)
 
 p3 = vl
 
 Print Int@(p3)
 
End