Private Sub Command1_Click()
Dim t As String
Dim q As Long
q = SystemParametersInfo(SPI_GETKEYBOARDDELAY, 0, r, 0)
lblrepeatdelay = "Keyboard Repeat Delay = " & r & " Sekunder"
End Sub