Sub OnMouseUp(x As Long, y As Long, flags As Long)
??????Dim MyPoint As New Point
'Init Point
??????Set MyPoint.Id = "MYPOINT"
'Check ChangeApprovalInfo to see what is required for approval
??????Select Case MyPoint.ChangeApprovalInfo
??????????Case CP_CHANGEAPPROVALPERFORM ????
??????????????????MsgBox "This Point requires a Performer for approval!"
??????????Case CP_CHANGEAPPROVALPERFORMVERIFY
??????????????????MsgBox "This Point requires a Performer and Verifier for approval!"
??????????Case CP_CHANGEAPPROVALNONE
??????????????????MsgBox "This Point does not require ChangeApproval!"
??????End Select
??
End Sub
|