Sorry das das gar nicht korrekt ist, aber naja...ihr werdet schon sehen.

Private Sub eyes.see (as TVpicture)
if see = starving child, dead people
then Call hand1.switch
End Sub

Private Sub hand1.switch ()
hand1.move To remotecontrol
remotecontrol.switch from "Informative" to RTL2
End Sub

Private Class Informative
= CNN
Al Jazeera
BBC
etc.
End Class

Private Sub eye.see (as RTL2)
End Application "Human"
Start Application "Stupid"
End Sub