Sub Switch(ByRef pProtocolData As _tagPROTOCOLDATA)
Sub ReportProgress(ByVal ulStatusCode As UInt32, <MarshalAs(UnmanagedType.LPWStr)> ByVal szStatusText As String)
Sub ReportData(ByVal grfBSCF As BSCF, ByVal ulProgress As UInt32, ByVal ulProgressMax As UInt32)
Sub ReportResult(ByVal hrResult As Integer, ByVal dwError As UInt32, <MarshalAs(UnmanagedType.LPWStr)> ByVal szResult As String)