VB.netでC言語の_aligned_malloc()と同じことをしたい。

VBにそのような機能はありません

Sub Main()
    Dim a1() As Byte
    Using temp As System.IDisposable = _aligned_malloc(a1, 0, 4096)
        Console.WriteLine(temp)
    End Using
End Sub

Private Function _aligned_malloc(ByRef a1 As Byte(), size As Integer, alignment As Integer) As IDisposable
    Do While True
        a1 = New Byte(size) {}
        Dim h = System.Runtime.InteropServices.GCHandle.Alloc(a1, System.Runtime.InteropServices.GCHandleType.Pinned)
        Dim p = h.AddrOfPinnedObject()
        If (p.ToInt64() Mod alignment) = 0 Then
            Return New Temp(h, p)
        Else
            h.Free()
        End If
    Loop
End Function

Class Temp
    Implements System.IDisposable

    Public Sub New(h As GCHandle, p As IntPtr)
        Me.h = h
        Me.p = p
    End Sub

    Private h As System.Runtime.InteropServices.GCHandle
    Private p As IntPtr

    Public Sub Dispose() Implements IDisposable.Dispose
        Me.h.Free()
    End Sub

    Public Overrides Function ToString() As String
        Return p.ToString("X")
    End Function
End Class