Generated Script Sample Code

The following example shows the script that would be generated if you ran this Expert on the Timer7 object, using the OnTimeOut event.

Private Sub Timer7_OnTimeOut(ByVal lTimerId As Long)

Dim doc As Object

Dim PicturePath As String

PicturePath = "c:\fix32\pic\" & FileName

Set doc = Application.Documents.Open(PicturePath)

End Sub