Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal _
  Destination As Integer, ByVal Source As Integer, ByVal Length As Integer)

CopyMemory(VarPtr(mMyArea), MyAreaPtr, Len(mMyArea))

Public Function VarPtr(ByVal e As Object) As Integer
    Dim GC As GCHandle = GCHandle.Alloc(e, GCHandleType.Pinned)
    Dim GC2 As Integer = GC.AddrOfPinnedObject.ToInt32
    GC.Free()
    Return GC2
End Function

Zitat:

Das Objekt enthält keine primitiven Daten.

Dim GC As GCHandle = GCHandle.Alloc(e, GCHandleType.Pinned)

 
If M?lleimer.Entfernung <= Wurfweite Then
   M?ll.Werfen.ToM?lleimer()
ElseIf M?lleimer.Entfernung > Wurfweite Then
   M?ll.Werfen.ToBoden()
End If