coloca um objeto timer e um command button e um frame e coloque isso
Private Sub Command1_Click()
Frame1.Visible = True
End Sub
Private Sub Form_Load()
Timer1.Interval = 2000
Frame1.Visible = False
End Sub
Private Sub Timer1_Timer()
Frame1.Visible = False
End Sub
o intevel = 2000 da um tempo de 2 segundo....
espero ter ajudado um abraço