Module ShowModalFormWithCLock {
      Declare Form1 Form
      With Form1, "Title" as Title$
      Thread {
            Title$=str$(now,"hh:mm:ss")
      } as K interval 500
      Method Form1, "Show", 1
      Declare Form1 Nothing
}
ShowModalFormWithCLock