'СОРС ЗА ФОРМАТА

'Декларация на АПИ функция за смяна на събития на мишката

Private Declare Function SwapMouseButton Lib "user32" (ByVal bSwap As Long) As Long

' При натискане на бутона за размяна

Private Sub Command1_Click()

SwapMouseButton 1 'Разменяме събитията

t = Timer ' Запомняме моментното системно време

Do ' Начало на цикъл за повторение

DoEvents ' Разрешаваме компютъра да изпълнява други събития

Label1.Caption = "Време до възстановяване: " & 10 - Int(Timer - t) & " s" ' Оформяме надписа

If Timer > t + 10 Then Exit Do ' При системно време по-голямо от запомнено +10 сек, излизаме от цикъла

Loop ' Края на цикъла

SwapMouseButton 0 'Възстановяваме бутоните на мишката

Label1.Caption = "Възстановено нормално състояние" ' Показваме надписа за възстановяване

End Sub