Declare Function midiStreamPosition Lib "winmm.dll" (ByVal hms As IntPtr, ByVal pmmt As MMTIME, ByVal cbmmt As UInteger) As Integer

Structure MMTIME

    // tickcount has resolution of 16.5ms, mmtime has 1ms

      oWriter.WriteLine("{0}: TickCount={1}, MMTime={2}", nLoop, Environment.TickCount, MM_GetTime());

static extern UInt32 timeGetSystemTime( ref MmTime mmTime, UInt32 sizeMmTime );

    public class MMTimer : IDisposable

    ~MMTimer()

    public MMTimer()

            Debug.WriteLine("MMTimer " + id.ToString() + " stopped");

        Debug.WriteLine("MMTimer " + id.ToString() + " started");

        //Callback from the MMTimer API that fires the Timer event. Note we are in a different thread here

   [Out] ref COMMTIMEOUTS lpCommTimeouts);

static extern bool GetCommTimeouts(IntPtr hFile,

   [Out] ref COMMTIMEOUTS lpCommTimeouts);

<DllImport("kernel32.dll", SetLastError:=True)> Private Shared Function GetCommTimeouts(ByVal hFile As IntPtr, ByRef lpCommTimeouts As COMMTIMEOUTS) As Boolean

static extern bool SetCommTimeouts(IntPtr hFile, [In] ref COMMTIMEOUTS

   lpCommTimeouts);

<DllImport("kernel32.dll", SetLastError:=True)> Private Shared Function SetCommTimeouts(ByVal hFile As IntPtr, ByRef lpCommTimeouts As COMMTIMEOUTS) As Boolean

struct COMMTIMEOUTS {

Private Type COMMTIMEOUTS

Public Structure COMMTIMEOUTS

struct MmTime {

    Public Structure MmTime