Visual Basic

Public Shared Function GetApplicationStartupPath() As String
    Dim realPath As String = Application.StartupPath
    If Path.GetPathRoot(realPath).StartsWith("C:") Then
        ' Return a bogus path to the root of the CD drive for testing
        Return "F:\"
    End If

    ' Return the real path were using
    Return realPath
End Function

    Public Shared Function GetApplicationStartupPath() As String
#If DEBUG Then
        ' Return the bogus path to the CD drive, used for testing...
        Return "F:\"
#Else
        ' Return the actual StartupPath
        Return Application.StartupPath
#End If
    End Function

With myTimer<br />
            .AutoReset = True<br />
            .Interval = 5000<br />
            .Start()<br />
End With

Public Sub myTimer_Elapsed(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs) Handles myTimer.Elapsed<br />
Button1.Visible = False<br />
myTimer.Close()<br />
End Sub 

Dim WithEvents myTimer As New Windows.Forms.Timer


Public Sub myTimer_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles myTimer.Tick
    Button1.Visible = False
    myTimer.Stop()
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    With myTimer
        .Interval = 5000
        .Start()
    End With

End Sub