------------------ Module ------------------
Public fncName as String

Function TestA()
   fncName = "TESTA"
on error goto exFnc
คำสั่ง....
คำสั่ง ...
คำสั่ง ....
exFnc :
   fncName = ""
endfunc

function TestB()
   fncName = "TESTB"
on error goto exFnc
คำสั่ง....
คำสั่ง ...
คำสั่ง ....
exFnc :
   fncName = ""
endfunc


------------ Form ------------

Private Sub Form_Timer()
me.label0.caption = fncName
End Sub


-------------------------- ยังไม่ได้ทดสอบนะครับ คิดว่าน่าจะประมาณนี้