Case "Run"
MyButtons = MsgBox("Disabling the bootloader will lock out boot mode. Be sure to have re-entry" & vbCrLf & "code within your firmware to use the bootloader in the future." & vbCrLf & vbCrLf & "Do you want to continue?", vbYesNo, "Disable Bootloader...")
If MyButtons = vbNo Then ' User chose Yes.
Exit Sub ' Perform some action.
End If
'GotoRunMode
ReDim InData(10) As Byte
InData(0) = 9
InData(1) = 1
SendGetPacket PicBootS.PortHandle, InData(0), 2, 255, 3
DisconnectDev
StatusBar1.Panels(PANEL_STATUS).Text = STATUS_RUNMODE_SET