Sub Main()
'************PC-DMIS declarations************
Dim pcdApp As Object
Set pcdApp = CreateObject("PCDLRN.Application.11.0")

Dim pcdPart As Object
Set pcdPart = pcdApp.ActivePartProgram

Dim pcdReportWindow As Object
Set pcdReportWindow = pcdPart.ReportWindow


'***********Repaint the report window*********
pcdReportWindow.RefreshReport

'********************Cleanup**********************
Set pcdReportWindow = Nothing
Set pcdPart = Nothing
Set pcdApp = Nothing

End Sub