Danke für die schnelle Antwort... aber, wo schreib ich das hinein?ß Ins haupt Form?? Da kommt dann die Fehlermeldung: End Sub erwartet... obwohl end sub eh da steht.
Gleich noch eine kleine Frage
Ich möchte, dass ein Shape bei MsComm1.input = "C" seine Farbe von Schwarz auf Rot ändert... wie geht denn das?
Ich dachte das geht so:
e$ = MSComm1.Input
Text1.Text = Text1.Text + e$
If Left$(e$, 1) = "C" Then
Shape1.FillColor = &HFF&
Else
Shape1.FillColor = &H0&
End If
tut es aber nicht
