static extern IntPtr GetMessageExtraInfo();

Public Declare Function GetMessageExtraInfo Lib "user32" () As IntPtr

    Private Declare Function apiGetMessageExtraInfo Lib "user32" Alias "GetMessageExtraInfo" () As Int32

        apimouse_event(MOUSEEVENTF_WHEEL, 0, 0, increment, apiGetMessageExtraInfo)

    structInput.ki.dwExtraInfo = Win32.GetMessageExtraInfo();