Dim Handle
AddObject "S309.UserNotification.1","un",0,0
un.aboutbox
un.dialog = True
un.Sound = True
un.SoundFile = "Alarm2"
un.LED = True
un.Repeat = False
un.GetUserPreferences()
if un.Dialog then
  un.DialogTitle = "This is the Title"
  un.DialogText = "This is the Text"
end if
un.AppName = "S309UserNotification.ocx" ' display icon from executable
un.DateTime = now + timeserial(0,0,5) 'show in 5 seconds
Handle = un.Set(0)