Option Explicit
 
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As _
  Integer
 
Private Const VK_LBUTTON = &H1
Private Const VK_RBUTTON = &H2
 
Private Sub Form_Load()
 
  tmrResize.Enabled = False
  tmrResize.Interval = 250
 
End Sub
 
Private Sub Form_Resize()
 
  tmrResize.Enabled = True
 
End Sub
 
Private Sub tmrResize_Timer()
 
  If GetAsyncKeyState(VK_LBUTTON) = 0 Then
    tmrResize.Enabled = False
    MsgBox "Hallo"
  End If
 
End Sub

Gruß
Dirk

--
?Get it right the first time

Beitrag wurde zuletzt am 11.08.11 um 16:10:32 editiert.