If GetAsyncKeyState(Keys.A) = -32767 Then
If My.Computer.Keyboard.ShiftKeyDown = True Then
Label1.Text = Label1.Text + "A"
Else
Label1.Text = Label1.Text + "a"
End If
End If
Warum seit ihr jetzt sauer auf ihn den rest des Tuts kann man sich doch wohl denken -.-
wenn ihr das nochnichmals hinbekommt dann lasst es am besten kommplett :/