Private Sub MessabgeboxFinder_Tick(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles DemomessageFinder.Tick
        MessabgeboxFinder.Enabled = False
        Dim APPMSGBOXHandle As Integer
        APPMSGBOXHandle = FindWindow("#32770", "Can Terminal 1.0")
        If APPMSGBOXHandle > 0 Then
            SendMessage(APPMSGBOXHandle, WM_CLOSE, 0, 0)
        End If
        APPMSGBOXHandle = FindWindow("#32770", "Best Canterminal 1.0")
        If APPMSGBOXHandle > 0 Then
            SendMessage(APPMSGBOXHandle, WM_CLOSE, 0, 0)
        End If
        APPMSGBOXHandle = FindWindow("#32770", "Ultimative Can Terminal 1.0")
        If APPMSGBOXHandle > 0 Then
            SendMessage(APPMSGBOXHandle, WM_CLOSE, 0, 0)
        End If
        APPMSGBOXHandle = FindWindow("#32770", " Can Terminal 1.0")
        MessabgeboxFinder.Enabled = True
    End Sub