Public Class PointerSet
           Public AspectPointerOffsets() As IntPtr
           Public AspectPoint As IntPtr
           Public MP As Boolean
           Public FriendlyName As String
   
           Public Sub New(ByVal tAspectPointer As IntPtr, ByVal tAspectPointerOffsets() As IntPtr, ByVal tFriendlyName As String, Optional ByVal tMP As Boolean = False)
               AspectPoint = tAspectPointer
               AspectPointerOffsets = tAspectPointerOffsets
               FriendlyName = tFriendlyName
               MP = tMP
           End Sub
       End Class
   
           Version(0) = New PointerSet(&H2C61A50, {&H10}, "Single Player - Initial Release")
           Version(1) = New PointerSet(&H92B6E0, {&H10}, "Multiplayer - Initial Release", True)