UFT: Using Class File in UFT Action

'###CLASS FILE

ExecuteGlobal "Dim Reporter"
Set Reporter = New HtmlReporter


Class HtmlReporter
 
Public Sub Class_Initialize(  )
   
    print "started"
   
    Systemutil.CloseProcessByName "iexplore.exe"
    Systemutil.Run "iexplore.exe"
End Sub
   
'When Object is Set to Nothing
public Sub Class_Terminate(  )
       
    Systemutil.CloseProcessByName "iexplore.exe"
   
    print "ended"
End Sub
   
End Class



'###ACTION


msgbox datatable.Value("Value")


'#DATATABLE
Value
1
2
3