 EventCode eines Formulares, verwenden Sie folgendes:</p>

<p class=Code>&nbsp;</p>

<p class=Code>dim key as string</p>

<p class=Code>If Not GetEventType()=NSBKeyOrButton then Exit Sub</p>

<p class=Code>key=getKey()</p>

<p class=Code>select case asc(key)</p>

<p class=Code>case 1     'fester Button
#1 auf dem Device</p>

<p class=Code>...</p>

<p class=Code>case 2     'fester Button
#2 auf dem Device</p>

<p class=Code>...</p>

<p class=Code>case 3     'fester Button
#