' ******************************************************************************
' swxJRNL.swj - journal recorded on 04/20/98 by magene
' ******************************************************************************

Dim swApp As Object
Dim Part As Object
Dim Gtol As Object
Sub main()
Set swApp = CreateObject ("SldWorks.Application")
Set Part = swApp.OpenDoc ("F:\magene\Genosensor\GeneGenosensor\syringeAsy.SLDASM", 2)
Set Part = swApp.ActivateDoc ("syringeAsy.SLDASM")
swApp.ExitApp
End Sub