How to create password protected pdf file in vb6.0

Hello,

Yes I have already created unprotected pdf and I am not using any 3rd party tool.
with below code i am generating pdf file.

As I am working in VB6, i have to mess with it.

On Error GoTo ErrorHandler
Dim ObjWord As Word.Application
Dim objWordDoc As Word.Document

Set ObjWord = CreateObject("Word.Application")
ObjWord.Visible = True
Set objWordDoc = ObjWord.Documents.Open(DocPath)
objWordDoc.ExportAsFixedFormat OutputFileName:= _
sDests & sDestsPDFFile, ExportFormat:=wdExportFormatPDF, _
OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, Range:= _
wdExportAllDocument, From:=1, To:=1, Item:=wdExportDocumentContent, _
IncludeDocProps:=True, KeepIRM:=True, CreateBookmarks:= _
wdExportCreateNoBookmarks, DocStructureTags:=True, BitmapMissingFonts:= _
True, UseISO19005_1:=False
'objWordDoc.Password = "ita@123"
ObjWord.Quit
Set ObjWord = Nothing
Exit Function


Thanks