' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************
Option Explicit
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Const VK_A = &H41 'Taste A
Public Sub test()
Do
If GetAsyncKeyState(VK_A) = -32767 Then _
If MsgBox("Wollen sie wirklich abbrechen?" & Space(10), _
vbYesNo + vbQuestion, "Abbruch") = vbYes Then Exit Sub
Loop
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen