VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Caop4vbRobot"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
' ==============================================================================
'   Caop4vbRobot implementation ver 1.0
'
'   NOTES:
'   - Don't change this class name, Caop4vbRobot.
'
' ==============================================================================
Option Explicit

Implements CaoProv4VB.ICaop4vbRobot


' ------------------------------------------------------------------------------
'   Constructor / Destructor
' ------------------------------------------------------------------------------

' Constructor
Private Sub Class_Initialize()

End Sub

' Destructor
Private Sub Class_Terminate()

End Sub


' ------------------------------------------------------------------------------
'   ICaop4vbRobot Implementation
' ------------------------------------------------------------------------------

' Initialize
'
' pVal(0): [in] objParent As Object
' pVal(1): [in] strName As String
' pVal(2): [in] strOption As String
Private Sub ICaop4vbRobot_FinalInitialize(pVal As Variant)

End Sub

' Terminate
Private Sub ICaop4vbRobot_FinalTerminate()

End Sub

' Accelerate
Private Sub ICaop4vbRobot_FinalAccelerate(ByVal lAxis As Long, ByVal fAccel As Single, ByVal fDecel As Single)

End Sub

' Change Tool
Private Sub ICaop4vbRobot_FinalChange(ByVal bstrName As String)

End Sub

' Grasp
Private Sub ICaop4vbRobot_FinalChuck(ByVal bstrOption As String)

End Sub

' Drive
Private Sub ICaop4vbRobot_FinalDrive(ByVal lNo As Long, ByVal fMov As Single, ByVal bstrOpt As String)

End Sub

' Go Home
Private Sub ICaop4vbRobot_FinalGoHome()

End Sub

' Halt
Private Sub ICaop4vbRobot_FinalHalt(ByVal bstrOption As String)

End Sub

' Hold
Private Sub ICaop4vbRobot_FinalHold(ByVal bstrOption As String)

End Sub

' Move
Private Sub ICaop4vbRobot_FinalMove(ByVal lComp As Long, ByVal vntPose As Variant, ByVal bstrOpt As String)

End Sub

' Rotate
Private Sub ICaop4vbRobot_FinalRotate(ByVal vntRotSuf As Variant, ByVal fDeg As Single, ByVal vntPivot As Variant, ByVal bstrOpt As String)

End Sub

' Speed
Private Sub ICaop4vbRobot_FinalSpeed(ByVal lAxis As Long, ByVal fSpeed As Single)

End Sub

' Release
Private Sub ICaop4vbRobot_FinalUnchuck(ByVal bstrOption As String)

End Sub

' Unhold
Private Sub ICaop4vbRobot_FinalUnhold(ByVal bstrOption As String)

End Sub

' Execute Custom command
Private Function ICaop4vbRobot_FinalExecute(ByVal bstrCommand As String, ByVal vntParam As Variant) As Variant

End Function

' Get Attribute
Private Function ICaop4vbRobot_FinalGetAttribute() As Long

End Function

' Get Help string
Private Function ICaop4vbRobot_FinalGetHelp() As String

End Function

' Get Caop4vbVariable name list
Private Function ICaop4vbRobot_FinalGetVariableNames(ByVal bstrOption As String) As Variant

End Function

' Get ID
Private Function ICaop4vbRobot_FinalGetID() As Variant

End Function

' Put ID
Private Sub ICaop4vbRobot_FinalPutID(ByVal newpVal As Variant)

End Sub


' ------------------------------------------------------------------------------
'   Public Functions
' ------------------------------------------------------------------------------


' ------------------------------------------------------------------------------
'   Private Functions
' ------------------------------------------------------------------------------