[Erel]

Interesting question with a nice solution:

Sub App_Start
    Form1.Show
    Hardware1.New1
    timer1.Interval = 5000
    timer1.Enabled = true
    Msgbox("Some Message","title",cMsgboxOK)
    timer1.Enabled = false    
End Sub

Sub Timer1_Tick
    Timer1.Enabled = False
    Hardware1.KeyPress(13)
End Sub