Public Sub TimerClickCheck_Timer()
Dim CP As POINTAPI
     GetCursorPos CP 'momentane Mausposition
Dim X As Long
Dim Y As Long
 
lngkeystate = GetAsyncKeyState(vbLeftButton) 'überprüft was gerade mit der 
' linken maustaste los ist
 
If bFirstClick = False Then
    If (lngkeystate And &H1) = &H1 Then
        Label1.Caption = "Bitte den zweiten Eckpunkt auswählen"
        xMOUSE = CP.X
        yMOUSE = CP.Y
        bFirstClick = True
    End If
Else
    If (lngkeystate And &H1) = &H1 Then
        If CP.X > xMOUSE Then  X = CP.X - xMOUSE
        If CP.X < xMOUSE Then 
            X = xMOUSE - CP.X
            xMOUSE = CP.X
        End If
        If CP.Y > yMOUSE Then Y = CP.Y - yMOUSE
        If CP.Y < yMOUSE Then 'y = CP.y + yMOUSE
            Y = yMOUSE - CP.Y
            yMOUSE = CP.Y
        End If
 
        TimerClickCheck.Enabled = False
 
        bFirstClick = False
        Snapshot Me, xMOUSE, yMOUSE, X, Y ' macht einen Screenshot mit den 
        ' jeweiligen kords xMOUSE und yMOUSE sind die erste ecke, x und y die 
        ' momentane zweite ecke - ich hab dem befehl so umgeschrieben, das das 
        ' bild nicht irgendwo gespeichert wird sondern einfach in die 
        ' picturebox geladen wird
        frmMain.Private_ShowScrollbars frmMain.PicBoxLeinwand 'passt die 
        ' Scrollbalken an, wenn das bild größer als die picture box ist (die in 
        ' einer anderen picture box drinnen ist)
        Unload Me
    End If
End If
End Sub