kleine VB Frage:

[Sesa_Mina]

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.