Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button2.Click
 
        'Thread beenden
        ListenThread.Abort()
        Label1.Text = "do not listen"
 
    End Sub