Sub ButtonSendMessage_Click
ButtonSendMessage.Tag = ArrayAsByte(0x0B,CanB,0x00,VAL2,0x0B,CanB,VAL3,VAL4,0x0C,CanC,VAL5,0x00)' in hex Roland xp 50Dim B AsButton = SenderDim Msg() AsByte = B.TagDim i AsIntFor i = 0To3
Msg1(i) = Msg(i)
Msg2(i) = Msg(i+4)
Msg3(i) = Msg(i+8)Next
Main.MidiUSBMan.Connection.BulkTransfer(Main.MidiUSBMan.OutEndPoint,Msg1,Msg1.Length,0)' fuonzionanoMain.MidiUSBMan.Connection.BulkTransfer(Main.MidiUSBMan.OutEndPoint,Msg2,Msg2.Length,0)
Main.MidiUSBMan.Connection.BulkTransfer(Main.MidiUSBMan.OutEndPoint,Msg3,Msg3.Length,0)