Threading.Thread.Sleep(2000)

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MyTimer.Delay("http://www.microsoft.com")
    End Sub
End Class

Public Class MyTimer
    Public Shared Sub Delay(ByVal URL As String)
        Dim MyTimer As Threading.Timer
        MyTimer = New Threading.Timer(New Threading.TimerCallback(AddressOf MyTimer_Elapsed), New MyTimerState(URL), 2000, Threading.Timeout.Infinite)
    End Sub

    Private Shared Sub MyTimer_Elapsed(ByVal state As Object)
        Dim TimerState As MyTimerState = DirectCast(state, MyTimerState)
        Process.Start(TimerState.URL)
    End Sub

    Private Class MyTimerState
        Private _URL As String
        Public Property URL() As String
            Get
                Return _URL
            End Get
            Set(ByVal value As String)
                _URL = value
            End Set
        End Property

        Public Sub New(ByVal URL As String)
            _URL = URL
        End Sub
    End Class
End Class

QUOTE(magicmonkey @ 9 Nov, 2008 - 05:51 AM)

Threading.Thread.Sleep(2000)

Threading.Thread.Sleep(2000)