Просто напишите его как бесформенное приложение или запишите его, чтобы начать с Sub Main()
, а затем Load
, но не Show
вашей основной формы.
Module1.bas
Option Explicit
Private Sub Main()
Load Form1
End Sub
Form1.frm
Option Explicit
Private Sub Form_Load()
Timer1.Interval = 5000
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
If MsgBox("Hello", vbOKCancel) = vbCancel Then Unload Me
End Sub