vielen Dank für die schnellen Antworten!

@Dirk:
funktioniert nicht
Case "0" : Portd.0 = 0 : Portc.0 = 1

@for_ro:
funktioniert perfekt.

vielen Dank! Tobias