Own your phone - Taking back control of your mobile phone

Imports System
Imports System.Drawing
Imports System.Collections
Imports System.Windows.Forms
Imports Microsoft.WindowsMobile
Imports Microsoft.WindowsMobile.Status
Imports Microsoft.WindowsMobile.PocketOutlook
Imports System.Runtime.InteropServices
Public Class Form1
    Private StateNotificationList As New ArrayList()
    Const KEYEVENTF_KEYUP = &H2
    Const KEYEVENTF_KEYDOWN = &H0
    <DllImport("coredll.dll", CharSet:=Runtime.InteropServices.CharSet.Unicode)> _
              Private Shared Sub keybd_event(ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)
    End Sub
    Public Shared Sub BounceCall()
        keybd_event(115, 0, KEYEVENTF_KEYDOWN, 0)
        keybd_event(115, 0, KEYEVENTF_KEYUP, 0)
    End Sub
    Private Sub ChangeOccurred(ByVal sender As Object, ByVal args As ChangeEventArgs)
        If SystemState.PhoneIncomingCall = True And chkIgnoreAllCalls.Checked = True Then
            BounceCall()
        End If
        If SystemState.PhoneIncomingCall = True And SystemState.PhoneIncomingCallerNumber = txtIgnoreThisNumber.Text Then
            BounceCall()
        End If
    End Sub
    Private Sub MonitorNotifications()
        Dim s As SystemState
        s = New SystemState(SystemProperty.PhoneIncomingCall)
        AddHandler s.Changed, AddressOf ChangeOccurred
        StateNotificationList.Add(s)
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MonitorNotifications()
    End Sub
End Class