Den Do-Loop Teil also so:

Do
waitms 100
If Pinc.0 = 1 Then
Call Lcd2
Else
Call Lcd1
End If
Loop

In diesen 100ms darfst du zwar keinen Tster drücken, aber in dieser Zeit kannst du den Taster nicht lolassen.

Wenn das nichts hilft, setzte vor die beiden "end sub" die "waitms 100".

jon