MS ProfileChecking

app/DD_Clipboard_Searcher/frmControlCapture.vb

@@ -37,6 +37,7 @@ Public Class frmControlCapture
     End Sub
 
     Private Sub frmControlCapture_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
+        Timer1.Stop()
         Automation.RemoveHandler()
     End Sub
 
@@ -53,6 +54,7 @@ Public Class frmControlCapture
             MsgBox("Es muss entweder die AutomationId oder der Feldname ausgewählt sein!", MsgBoxStyle.Exclamation, Text)
             DialogResult = DialogResult.None
         End If
+        Timer1.Stop()
     End Sub
 
     Private Sub chkControlName_CheckedChanged(sender As Object, e As EventArgs) Handles chkControlName.CheckedChanged
@@ -66,4 +68,8 @@ Public Class frmControlCapture
             chkControlName.Checked = False
         End If
     End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        Timer1.Stop()
+    End Sub
 End Class