Try this

Private Sub UserForm_Activate()
MyTime = Time
x = MyTime
y = 0
MyNum = TimeValue("00:00:05")
Me.Repaint
Do Until y = 1
Z = x + MyNum
If x + MyNum <= MyTime Then
y = 1
End If
MyTime = Time
Loop
If y = 1 Then
UserForm1.Hide
End If
End Sub



--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Jason Zischke" wrote in message
...
Hi All,

I have a form that shows for about 5 seconds then unloads however when it
shows up the form is just white is there a way for it to show the info on
it
my code is below,can someone help me?

Jason

Sub ShowForm()
Userform1.Show
End Sub

Dim MyTime
Private Sub UserForm_Activate()
MyTime = Time
x = MyTime
y = 0
MyNum = TimeValue("00:00:05")
Do Until y = 1
Z = x + MyNum
If x + MyNum <= MyTime Then
y = 1
End If
MyTime = Time
Loop
If y = 1 Then
UserForm1.Hide
End If
End Sub