Visual Basic

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

Private Function checkForNumericInput(ByVal e As System.Windows.Forms.KeyPressEventArgs)<br />
If Not (Char.IsDigit(e.KeyChar) Or Char.IsControl(e.KeyChar) Or e.KeyChar = ".") Then<br />
   e.Handled = True<br />
MsgBox("PLEASE INPUT NUMBERS ONLY", MsgBoxStyle.Critical, "NO CHARACTERS!!!")<br />
End If<br />
End Function