找一款可以在屏幕上画直线的软件

private declare function getasynckeystate lib "user32" (byval vkey as long) as integer private sub form_load() timer1.interval = 5 timer1.enabled = true

with me    .backcolor = 0    .width = screen.width    .height = 15    .top = screen.height / 2    .left = 0 end with end sub

private sub timer1_timer() if getasynckeystate(vbkeycontrol) and getasynckeystate(vbkeyw) and me.top > 0 then me.top = me.top - 10 end if if getasynckeystate(vbkeycontrol) and getasynckeystate(vbkeys) and me.top < screen.height then me.top = me.top + 10 end if if getasynckeystate(vbkeycontrol) and getasynckeystate(vbkeyh) then me.hide end if if getasynckeystate(vbkeycontrol) and getasynckeystate(vbkeyv) then me.show end if end sub 'ctrl+w上移 ctrl+s直线下移 ctrl+h直线隐匿 ctrl+v直线可见ok