Structure MIDIMSG
        Dim MIDIStatus As Byte
        Dim MIDIByte1 As Byte
        Dim MIDIByte2 As Byte
        Dim Garbage As Byte
    End Structure
 
    Dim dwParam1 as IntPtr 'ein Pointer auf den entsprechenden Long Integer 
                           ' im echten Code würde der auf den Wert A1 B2 C3 D4 
                           ' zeigen
    Dim MidiMessage as MIDIMSG
    Dim Bytes(3) as Byte
    Bytes = BitConverter.GetBytes(dwParam1.ToInt32)
    MidiMessage.MIDIStatus = Bytes(0)
    MidiMessage.MIDIByte1 = Bytes(1)
    MidiMessage.MIDIByte2 = Bytes(2)