vb.net - On key release handler -

so, i'm trying run piece of code when button pressed (i'll use right-arrow key time being), , keep running in loop until key released.

so, current code looks (i've simplified it, because it's using serialports, , not easy understand code):

private sub form1_keydown(byval sender system.object, byval e system.windows.forms.keyeventargs) handles mybase.keydown      select case e.keycode          case keys.right              until (code looking right-arrow key release)                 serialport1.write("right")             loop              e.handled = true             serialport1.close() end sub 

ultimately, i'm trying control , arduino through serial port function. i've wired cheap rc car (i have few arduino projects on go), , have code allows me control arrow keys in ide itself.

however, have limited vb.net knowledge (i've been @ few years), i'm kinda struggling along of google, god end while trying work out how keep serialport open (it kept closing due logic error in code).

the goal once can control arrow keys in vb.net, can set more advanced program allow pre-programming routes (for example, can try "teach" car sets of instructions can automatically follow circuit, , load various pre-programmed routes it). i'd plan on-screen gui show button pressed, , whatever else think of.

also, given prototype, intend hook arduino , vb program hobby grade rc, , see if can computer program, pre-programmed isntructions, beat round track.

well, after little essay, guess it's in advance, , advice in other areas of project appreciated =)

why make complicated. looks want send long key down, , close port when released.

private sub form1_keydown(sender object, e keyeventargs) handles me.keydown     if e.keycode = keys.right andalso keydelay >= 1         debug.writeline("dwn") 'serialport1.write("right")         e.handled = true     elseif e.keycode = keys.right         keydelay += 1     end if end sub  dim keydelay integer = 0  private sub form1_keyup(sender object, e keyeventargs) handles me.keyup     if e.keycode = keys.right         keydelay = 0         debug.writeline("up") 'serialport1.close()     end if end sub