'MacroName:pin+lock
'MacroDescription:pins bib record before locking
'written by John Lavalie, June 12, 2006

Sub Main

   Dim CS As Object
   Set CS = CreateObject("Connex.Client")
  
   if CS.ItemType = 0 then        'bib record
      CS.SendKeys "%(vp)", -1
   end if
   
   CS.Lock

End Sub