Help!

[markirving]

hi guys,

i created a program that checks if there is a new order. it has a refresh button that is timed with a timer so that every xx seconds, "refreshed" to see if there are new orders, so that it can be sort of a real time program. when it has a new order, a msgbox will pop and asks if the user wants to go to the site.


the program is working fine when the form is loaded; msgbox pops out and nothing else pops out even after xx seconds,


but my problem is when i close the msgbox, perhaps i clicked "no". after xx seconds the msgbox will pop out because for example there is a new order, if i did not click either yes or no. another msgbox will pop out, and another and another and another depending on the timer.interval that i used. what i want is when there is a msgbox that is active, i do not want any other msgbox to be popped again, because its annoying and redundant.

guys please help me and tell me if its confusing.

i am open for any suggestions! thanks very much!

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        


        Timer1.Interval = 5000
        Timer1.Enabled = True

       (CONNECTION STRINGS)


            For Each item In ListBox1.Items

                If DirectCast(item, DataRowView).Item("status") = Label1.Text Then

                    MsgBox()

                End If

            Next

end sub

 Public Sub MsgBox()
        Dim Shell As Object
        Dim message As Integer
        Shell = CreateObject("Wscript.Shell")

        message = MsgBox("There is NEW Order, would you like to go to the site?", _
                           vbYesNo, "ALARM")

        If message= vbYes Then
            Shell.Run("http://")
        Else
            Exit Sub
        End If

        If message = Enabled Then
            Timer1.Stop()
            Timer1.Dispose()

        Else

            Timer1.Interval = 5000
            Timer1.Enabled = True
        End If

    End Sub


Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Button1.PerformClick()
    End Sub



 Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Timer1.Interval = 5000
        Timer1.Enabled = True

       (CONNECTION STRINGS)


            For Each item In ListBox1.Items

                If DirectCast(item, DataRowView).Item("status") = Label1.Text Then

                    MsgBox()

                End If

            Next

end sub

[cicatrix]

Stop the timer before showing the message box and resume it after.