funktioniert nicht
Case "0" : Portd.0 = 0 : Portc.0 = 1
Case 0 : funktioniert, wenn bei Select Case eine numerische Variable steht. Du testest evtl. auf ein Textzeichen, dann ist Case "0" natürlich richtig.
Ansonsten kann man die Befehle nach Case mit Doppelpunkten hinter einander in dieselbe Zeile schreiben.
Das war's hauptsächlich, was ich zeigen wollte.

Gruß Dirk