An deiner Stelle würde ich nen TIMER verwenden der alle 100ms mscomm1.inputlen abfragt und wenns größer als 0 is holst dir die daten von mscomm1.input
Anders hats keinen Sinn.
und in dem timer sub kannst dann auch gleich die Farbe setzen.
private sub timer1_timer()
if mscomm1.inputlen>0 then text4.text=mscomm1.input
if instr(1,text4.text,"C")>0 then picture1.backcolor=rgb(0,255,0):else picture1.backcolor=rgb(255,0,0)
end sub
das müsste hinhaun.
____________________________________
Wann die kan Almdudler ham... \"Es gibt nur einen Weg zur Lunge, und der muss geteert werden, damit der Krebs nicht stolpert!\"
http://www.dream.at/gizmo/bunny.gif
Image is © 2001 Merle
Sterndalsäg.. ähh... jäger 
|