'------------------------------------------------------------------------------ ' ' Il codice è stato generato da uno strumento. ' Versione runtime:4.0.30319.42000 ' ' Le modifiche apportate a questo file possono provocare un comportamento non corretto e andranno perse se ' il codice viene rigenerato. ' '------------------------------------------------------------------------------ Option Strict On Option Explicit On Namespace OpenControl _ Public Interface OPENcontrolPortType 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione BootPhaseEnquiry non è RPC né incapsulata da documenti. _ Function BootPhaseEnquiry(ByVal request As OpenControl.BootPhaseEnquiryRequest) As OpenControl.BootPhaseEnquiryResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione BootReboot non è RPC né incapsulata da documenti. _ Function BootReboot(ByVal request As OpenControl.BootRebootRequest) As OpenControl.BootRebootResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione BootShutDown non è RPC né incapsulata da documenti. _ Function BootShutDown(ByVal request As OpenControl.BootShutDownRequest) As OpenControl.BootShutDownResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione BootMode non è RPC né incapsulata da documenti. _ Function BootMode(ByVal request As OpenControl.BootModeRequest) As OpenControl.BootModeResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetHWKey non è RPC né incapsulata da documenti. _ Function GetHWKey(ByVal request As OpenControl.GetHWKeyRequest) As OpenControl.GetHWKeyResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadVarWord non è RPC né incapsulata da documenti. _ Function ReadVarWord(ByVal request As OpenControl.ReadVarWordRequest) As OpenControl.ReadVarWordResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadVarDouble non è RPC né incapsulata da documenti. _ Function ReadVarDouble(ByVal request As OpenControl.ReadVarDoubleRequest) As OpenControl.ReadVarDoubleResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione WriteVarWord non è RPC né incapsulata da documenti. _ Function WriteVarWord(ByVal request As OpenControl.WriteVarWordRequest) As OpenControl.WriteVarWordResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione WriteVarWordBit non è RPC né incapsulata da documenti. _ Function WriteVarWordBit(ByVal request As OpenControl.WriteVarWordBitRequest) As OpenControl.WriteVarWordBitResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione WriteVarDouble non è RPC né incapsulata da documenti. _ Function WriteVarDouble(ByVal request As OpenControl.WriteVarDoubleRequest) As OpenControl.WriteVarDoubleResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadVarText non è RPC né incapsulata da documenti. _ Function ReadVarText(ByVal request As OpenControl.ReadVarTextRequest) As OpenControl.ReadVarTextResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione WriteVarText non è RPC né incapsulata da documenti. _ Function WriteVarText(ByVal request As OpenControl.WriteVarTextRequest) As OpenControl.WriteVarTextResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadWarningMsg non è RPC né incapsulata da documenti. _ Function ReadWarningMsg(ByVal request As OpenControl.ReadWarningMsgRequest) As OpenControl.ReadWarningMsgResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ResetSingleTableII non è RPC né incapsulata da documenti. _ Function ResetSingleTableII(ByVal request As OpenControl.ResetSingleTableIIRequest) As OpenControl.ResetSingleTableIIResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LockTableII non è RPC né incapsulata da documenti. _ Function LockTableII(ByVal request As OpenControl.LockTableIIRequest) As OpenControl.LockTableIIResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione UnLockTableII non è RPC né incapsulata da documenti. _ Function UnLockTableII(ByVal request As OpenControl.UnLockTableIIRequest) As OpenControl.UnLockTableIIResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetOriginTabRecordII non è RPC né incapsulata da documenti. _ Function GetOriginTabRecordII(ByVal request As OpenControl.GetOriginTabRecordIIRequest) As OpenControl.GetOriginTabRecordIIResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetOriginTabRecordII non è RPC né incapsulata da documenti. _ Function SetOriginTabRecordII(ByVal request As OpenControl.SetOriginTabRecordIIRequest) As OpenControl.SetOriginTabRecordIIResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetToolTabRecordII non è RPC né incapsulata da documenti. _ Function GetToolTabRecordII(ByVal request As OpenControl.GetToolTabRecordIIRequest) As OpenControl.GetToolTabRecordIIResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetToolTabRecordII non è RPC né incapsulata da documenti. _ Function SetToolTabRecordII(ByVal request As OpenControl.SetToolTabRecordIIRequest) As OpenControl.SetToolTabRecordIIResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetOffsetTabRecordII non è RPC né incapsulata da documenti. _ Function GetOffsetTabRecordII(ByVal request As OpenControl.GetOffsetTabRecordIIRequest) As OpenControl.GetOffsetTabRecordIIResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetOffsetTabRecordII non è RPC né incapsulata da documenti. _ Function SetOffsetTabRecordII(ByVal request As OpenControl.SetOffsetTabRecordIIRequest) As OpenControl.SetOffsetTabRecordIIResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetUserTabRecordII non è RPC né incapsulata da documenti. _ Function GetUserTabRecordII(ByVal request As OpenControl.GetUserTabRecordIIRequest) As OpenControl.GetUserTabRecordIIResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetUserTabRecordII non è RPC né incapsulata da documenti. _ Function SetUserTabRecordII(ByVal request As OpenControl.SetUserTabRecordIIRequest) As OpenControl.SetUserTabRecordIIResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SaveTables non è RPC né incapsulata da documenti. _ Function SaveTables(ByVal request As OpenControl.SaveTablesRequest) As OpenControl.SaveTablesResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione RestoreSingleTable non è RPC né incapsulata da documenti. _ Function RestoreSingleTable(ByVal request As OpenControl.RestoreSingleTableRequest) As OpenControl.RestoreSingleTableResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SaveSingleTable non è RPC né incapsulata da documenti. _ Function SaveSingleTable(ByVal request As OpenControl.SaveSingleTableRequest) As OpenControl.SaveSingleTableResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SaveBackupMemory non è RPC né incapsulata da documenti. _ Function SaveBackupMemory(ByVal request As OpenControl.SaveBackupMemoryRequest) As OpenControl.SaveBackupMemoryResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione RestoreBackupMemory non è RPC né incapsulata da documenti. _ Function RestoreBackupMemory(ByVal request As OpenControl.RestoreBackupMemoryRequest) As OpenControl.RestoreBackupMemoryResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione Cycle non è RPC né incapsulata da documenti. _ Function Cycle(ByVal request As OpenControl.CycleRequest) As OpenControl.CycleResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SyncroCycle non è RPC né incapsulata da documenti. _ Function SyncroCycle(ByVal request As OpenControl.SyncroCycleRequest) As OpenControl.SyncroCycleResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione Reset non è RPC né incapsulata da documenti. _ Function Reset(ByVal request As OpenControl.ResetRequest) As OpenControl.ResetResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione Hold non è RPC né incapsulata da documenti. _ Function Hold(ByVal request As OpenControl.HoldRequest) As OpenControl.HoldResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetFeedManOver non è RPC né incapsulata da documenti. _ Function SetFeedManOver(ByVal request As OpenControl.SetFeedManOverRequest) As OpenControl.SetFeedManOverResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetFeedRateOver non è RPC né incapsulata da documenti. _ Function SetFeedRateOver(ByVal request As OpenControl.SetFeedRateOverRequest) As OpenControl.SetFeedRateOverResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetFeedRapidOver non è RPC né incapsulata da documenti. _ Function SetFeedRapidOver(ByVal request As OpenControl.SetFeedRapidOverRequest) As OpenControl.SetFeedRapidOverResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetSpeedRateOver non è RPC né incapsulata da documenti. _ Function SetSpeedRateOver(ByVal request As OpenControl.SetSpeedRateOverRequest) As OpenControl.SetSpeedRateOverResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetManMovDirection non è RPC né incapsulata da documenti. _ Function SetManMovDirection(ByVal request As OpenControl.SetManMovDirectionRequest) As OpenControl.SetManMovDirectionResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetVarJOG non è RPC né incapsulata da documenti. _ Function GetVarJOG(ByVal request As OpenControl.GetVarJOGRequest) As OpenControl.GetVarJOGResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetVarJOG non è RPC né incapsulata da documenti. _ Function SetVarJOG(ByVal request As OpenControl.SetVarJOGRequest) As OpenControl.SetVarJOGResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetVarUAS non è RPC né incapsulata da documenti. _ Function SetVarUAS(ByVal request As OpenControl.SetVarUASRequest) As OpenControl.SetVarUASResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetVarRCM non è RPC né incapsulata da documenti. _ Function GetVarRCM(ByVal request As OpenControl.GetVarRCMRequest) As OpenControl.GetVarRCMResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetVarRCM non è RPC né incapsulata da documenti. _ Function SetVarRCM(ByVal request As OpenControl.SetVarRCMRequest) As OpenControl.SetVarRCMResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetProcVarWord non è RPC né incapsulata da documenti. _ Function GetProcVarWord(ByVal request As OpenControl.GetProcVarWordRequest) As OpenControl.GetProcVarWordResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetProcVarWord non è RPC né incapsulata da documenti. _ Function SetProcVarWord(ByVal request As OpenControl.SetProcVarWordRequest) As OpenControl.SetProcVarWordResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetProcVarDouble non è RPC né incapsulata da documenti. _ Function GetProcVarDouble(ByVal request As OpenControl.GetProcVarDoubleRequest) As OpenControl.GetProcVarDoubleResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetProcVarDouble non è RPC né incapsulata da documenti. _ Function SetProcVarDouble(ByVal request As OpenControl.SetProcVarDoubleRequest) As OpenControl.SetProcVarDoubleResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetMdiString non è RPC né incapsulata da documenti. _ Function SetMdiString(ByVal request As OpenControl.SetMdiStringRequest) As OpenControl.SetMdiStringResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetProcessMode non è RPC né incapsulata da documenti. _ Function SetProcessMode(ByVal request As OpenControl.SetProcessModeRequest) As OpenControl.SetProcessModeResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SelectProcess non è RPC né incapsulata da documenti. _ Function SelectProcess(ByVal request As OpenControl.SelectProcessRequest) As OpenControl.SelectProcessResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetSelectedProcess non è RPC né incapsulata da documenti. _ Function GetSelectedProcess(ByVal request As OpenControl.GetSelectedProcessRequest) As OpenControl.GetSelectedProcessResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SelectProcAxis non è RPC né incapsulata da documenti. _ Function SelectProcAxis(ByVal request As OpenControl.SelectProcAxisRequest) As OpenControl.SelectProcAxisResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SelectPartProgram non è RPC né incapsulata da documenti. _ Function SelectPartProgram(ByVal request As OpenControl.SelectPartProgramRequest) As OpenControl.SelectPartProgramResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SelectPartProgramFromDrive non è RPC né incapsulata da documenti. _ Function SelectPartProgramFromDrive(ByVal request As OpenControl.SelectPartProgramFromDriveRequest) As OpenControl.SelectPartProgramFromDriveResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetActivePartProgram non è RPC né incapsulata da documenti. _ Function GetActivePartProgram(ByVal request As OpenControl.GetActivePartProgramRequest) As OpenControl.GetActivePartProgramResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetPartProgramLines non è RPC né incapsulata da documenti. _ Function GetPartProgramLines(ByVal request As OpenControl.GetPartProgramLinesRequest) As OpenControl.GetPartProgramLinesResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetAxOriginNum non è RPC né incapsulata da documenti. _ Function GetAxOriginNum(ByVal request As OpenControl.GetAxOriginNumRequest) As OpenControl.GetAxOriginNumResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetAxesPosition non è RPC né incapsulata da documenti. _ Function GetAxesPosition(ByVal request As OpenControl.GetAxesPositionRequest) As OpenControl.GetAxesPositionResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetNcInfo1 non è RPC né incapsulata da documenti. _ Function GetNcInfo1(ByVal request As OpenControl.GetNcInfo1Request) As OpenControl.GetNcInfo1Response 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetNcInfo2 non è RPC né incapsulata da documenti. _ Function GetNcInfo2(ByVal request As OpenControl.GetNcInfo2Request) As OpenControl.GetNcInfo2Response 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetToolNames non è RPC né incapsulata da documenti. _ Function GetToolNames(ByVal request As OpenControl.GetToolNamesRequest) As OpenControl.GetToolNamesResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetProcessStatus non è RPC né incapsulata da documenti. _ Function GetProcessStatus(ByVal request As OpenControl.GetProcessStatusRequest) As OpenControl.GetProcessStatusResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetBlkNum non è RPC né incapsulata da documenti. _ Function GetBlkNum(ByVal request As OpenControl.GetBlkNumRequest) As OpenControl.GetBlkNumResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadErrMsg non è RPC né incapsulata da documenti. _ Function ReadErrMsg(ByVal request As OpenControl.ReadErrMsgRequest) As OpenControl.ReadErrMsgResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadPartProgramMsg non è RPC né incapsulata da documenti. _ Function ReadPartProgramMsg(ByVal request As OpenControl.ReadPartProgramMsgRequest) As OpenControl.ReadPartProgramMsgResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetGCode non è RPC né incapsulata da documenti. _ Function GetGCode(ByVal request As OpenControl.GetGCodeRequest) As OpenControl.GetGCodeResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetMCode non è RPC né incapsulata da documenti. _ Function GetMCode(ByVal request As OpenControl.GetMCodeRequest) As OpenControl.GetMCodeResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SkipPProgBlock non è RPC né incapsulata da documenti. _ Function SkipPProgBlock(ByVal request As OpenControl.SkipPProgBlockRequest) As OpenControl.SkipPProgBlockResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione Ese non è RPC né incapsulata da documenti. _ Function Ese(ByVal request As OpenControl.EseRequest) As OpenControl.EseResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione EseEx non è RPC né incapsulata da documenti. _ Function EseEx(ByVal request As OpenControl.EseExRequest) As OpenControl.EseExResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione Exe non è RPC né incapsulata da documenti. _ Function Exe(ByVal request As OpenControl.ExeRequest) As OpenControl.ExeResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione AxesRef non è RPC né incapsulata da documenti. _ Function AxesRef(ByVal request As OpenControl.AxesRefRequest) As OpenControl.AxesRefResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione DncInit non è RPC né incapsulata da documenti. _ Function DncInit(ByVal request As OpenControl.DncInitRequest) As OpenControl.DncInitResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione DncData non è RPC né incapsulata da documenti. _ Function DncData(ByVal request As OpenControl.DncDataRequest) As OpenControl.DncDataResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione DncEof non è RPC né incapsulata da documenti. _ Function DncEof(ByVal request As OpenControl.DncEofRequest) As OpenControl.DncEofResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione DncStop non è RPC né incapsulata da documenti. _ Function DncStop(ByVal request As OpenControl.DncStopRequest) As OpenControl.DncStopResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetAxesInfo3 non è RPC né incapsulata da documenti. _ Function GetAxesInfo3(ByVal request As OpenControl.GetAxesInfo3Request) As OpenControl.GetAxesInfo3Response 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetCodeNumber non è RPC né incapsulata da documenti. _ Function GetCodeNumber(ByVal request As OpenControl.GetCodeNumberRequest) As OpenControl.GetCodeNumberResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetOptions non è RPC né incapsulata da documenti. _ Function GetOptions(ByVal request As OpenControl.GetOptionsRequest) As OpenControl.GetOptionsResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetDateTime non è RPC né incapsulata da documenti. _ Function GetDateTime(ByVal request As OpenControl.GetDateTimeRequest) As OpenControl.GetDateTimeResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetDateTime non è RPC né incapsulata da documenti. _ Function SetDateTime(ByVal request As OpenControl.SetDateTimeRequest) As OpenControl.SetDateTimeResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetSerialNumber non è RPC né incapsulata da documenti. _ Function GetSerialNumber(ByVal request As OpenControl.GetSerialNumberRequest) As OpenControl.GetSerialNumberResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione PutFile non è RPC né incapsulata da documenti. _ Function PutFile(ByVal request As OpenControl.PutFileRequest) As OpenControl.PutFileResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetFile non è RPC né incapsulata da documenti. _ Function GetFile(ByVal request As OpenControl.GetFileRequest) As OpenControl.GetFileResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione PutBinaryFile non è RPC né incapsulata da documenti. _ Function PutBinaryFile(ByVal request As OpenControl.PutBinaryFileRequest) As OpenControl.PutBinaryFileResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetBinaryFile non è RPC né incapsulata da documenti. _ Function GetBinaryFile(ByVal request As OpenControl.GetBinaryFileRequest) As OpenControl.GetBinaryFileResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSSetSecurityLevel non è RPC né incapsulata da documenti. _ Function LogFSSetSecurityLevel(ByVal request As OpenControl.LogFSSetSecurityLevelRequest) As OpenControl.LogFSSetSecurityLevelResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSGetSecurityLevel non è RPC né incapsulata da documenti. _ Function LogFSGetSecurityLevel(ByVal request As OpenControl.LogFSGetSecurityLevelRequest) As OpenControl.LogFSGetSecurityLevelResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSLongFileNames non è RPC né incapsulata da documenti. _ Function LogFSLongFileNames(ByVal request As OpenControl.LogFSLongFileNamesRequest) As OpenControl.LogFSLongFileNamesResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSGetNumDrive non è RPC né incapsulata da documenti. _ Function LogFSGetNumDrive(ByVal request As OpenControl.LogFSGetNumDriveRequest) As OpenControl.LogFSGetNumDriveResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSGetDriveList non è RPC né incapsulata da documenti. _ Function LogFSGetDriveList(ByVal request As OpenControl.LogFSGetDriveListRequest) As OpenControl.LogFSGetDriveListResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSGetHiddenDriveList non è RPC né incapsulata da documenti. _ Function LogFSGetHiddenDriveList(ByVal request As OpenControl.LogFSGetHiddenDriveListRequest) As OpenControl.LogFSGetHiddenDriveListResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSGetDrivePath non è RPC né incapsulata da documenti. _ Function LogFSGetDrivePath(ByVal request As OpenControl.LogFSGetDrivePathRequest) As OpenControl.LogFSGetDrivePathResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSAddDrive non è RPC né incapsulata da documenti. _ Function LogFSAddDrive(ByVal request As OpenControl.LogFSAddDriveRequest) As OpenControl.LogFSAddDriveResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSRemoveDrive non è RPC né incapsulata da documenti. _ Function LogFSRemoveDrive(ByVal request As OpenControl.LogFSRemoveDriveRequest) As OpenControl.LogFSRemoveDriveResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSReloadDriveList non è RPC né incapsulata da documenti. _ Function LogFSReloadDriveList(ByVal request As OpenControl.LogFSReloadDriveListRequest) As OpenControl.LogFSReloadDriveListResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSCreateDir non è RPC né incapsulata da documenti. _ Function LogFSCreateDir(ByVal request As OpenControl.LogFSCreateDirRequest) As OpenControl.LogFSCreateDirResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSCreateFile non è RPC né incapsulata da documenti. _ Function LogFSCreateFile(ByVal request As OpenControl.LogFSCreateFileRequest) As OpenControl.LogFSCreateFileResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSGetFileSize non è RPC né incapsulata da documenti. _ Function LogFSGetFileSize(ByVal request As OpenControl.LogFSGetFileSizeRequest) As OpenControl.LogFSGetFileSizeResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSGetFileAttrib non è RPC né incapsulata da documenti. _ Function LogFSGetFileAttrib(ByVal request As OpenControl.LogFSGetFileAttribRequest) As OpenControl.LogFSGetFileAttribResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSSetFileAttrib non è RPC né incapsulata da documenti. _ Function LogFSSetFileAttrib(ByVal request As OpenControl.LogFSSetFileAttribRequest) As OpenControl.LogFSSetFileAttribResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSChangeFileAttrib non è RPC né incapsulata da documenti. _ Function LogFSChangeFileAttrib(ByVal request As OpenControl.LogFSChangeFileAttribRequest) As OpenControl.LogFSChangeFileAttribResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSFindFirst non è RPC né incapsulata da documenti. _ Function LogFSFindFirst(ByVal request As OpenControl.LogFSFindFirstRequest) As OpenControl.LogFSFindFirstResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSFindNext non è RPC né incapsulata da documenti. _ Function LogFSFindNext(ByVal request As OpenControl.LogFSFindNextRequest) As OpenControl.LogFSFindNextResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSFindClose non è RPC né incapsulata da documenti. _ Function LogFSFindClose(ByVal request As OpenControl.LogFSFindCloseRequest) As OpenControl.LogFSFindCloseResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSRemoveFile non è RPC né incapsulata da documenti. _ Function LogFSRemoveFile(ByVal request As OpenControl.LogFSRemoveFileRequest) As OpenControl.LogFSRemoveFileResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSRemoveDir non è RPC né incapsulata da documenti. _ Function LogFSRemoveDir(ByVal request As OpenControl.LogFSRemoveDirRequest) As OpenControl.LogFSRemoveDirResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSRename non è RPC né incapsulata da documenti. _ Function LogFSRename(ByVal request As OpenControl.LogFSRenameRequest) As OpenControl.LogFSRenameResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSCopyFile non è RPC né incapsulata da documenti. _ Function LogFSCopyFile(ByVal request As OpenControl.LogFSCopyFileRequest) As OpenControl.LogFSCopyFileResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSGetInfo non è RPC né incapsulata da documenti. _ Function LogFSGetInfo(ByVal request As OpenControl.LogFSGetInfoRequest) As OpenControl.LogFSGetInfoResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetAvailableCustomEvents non è RPC né incapsulata da documenti. _ Function GetAvailableCustomEvents(ByVal request As OpenControl.GetAvailableCustomEventsRequest) As OpenControl.GetAvailableCustomEventsResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetSysTick non è RPC né incapsulata da documenti. _ Function GetSysTick(ByVal request As OpenControl.GetSysTickRequest) As OpenControl.GetSysTickResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetProcessConfNum non è RPC né incapsulata da documenti. _ Function GetProcessConfNum(ByVal request As OpenControl.GetProcessConfNumRequest) As OpenControl.GetProcessConfNumResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione MonOpenChannel non è RPC né incapsulata da documenti. _ Function MonOpenChannel(ByVal request As OpenControl.MonOpenChannelRequest) As OpenControl.MonOpenChannelResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione MonCloseChannel non è RPC né incapsulata da documenti. _ Function MonCloseChannel(ByVal request As OpenControl.MonCloseChannelRequest) As OpenControl.MonCloseChannelResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione MonAddVariable non è RPC né incapsulata da documenti. _ Function MonAddVariable(ByVal request As OpenControl.MonAddVariableRequest) As OpenControl.MonAddVariableResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione MonDeleteVariable non è RPC né incapsulata da documenti. _ Function MonDeleteVariable(ByVal request As OpenControl.MonDeleteVariableRequest) As OpenControl.MonDeleteVariableResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione MonStartSampling non è RPC né incapsulata da documenti. _ Function MonStartSampling(ByVal request As OpenControl.MonStartSamplingRequest) As OpenControl.MonStartSamplingResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione MonStopSampling non è RPC né incapsulata da documenti. _ Function MonStopSampling(ByVal request As OpenControl.MonStopSamplingRequest) As OpenControl.MonStopSamplingResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione MonGetVariable non è RPC né incapsulata da documenti. _ Function MonGetVariable(ByVal request As OpenControl.MonGetVariableRequest) As OpenControl.MonGetVariableResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione CheckHistory non è RPC né incapsulata da documenti. _ Function CheckHistory(ByVal request As OpenControl.CheckHistoryRequest) As OpenControl.CheckHistoryResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadHistoryEmergMsg non è RPC né incapsulata da documenti. _ Function ReadHistoryEmergMsg(ByVal request As OpenControl.ReadHistoryEmergMsgRequest) As OpenControl.ReadHistoryEmergMsgResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadHistoryErrorMsg non è RPC né incapsulata da documenti. _ Function ReadHistoryErrorMsg(ByVal request As OpenControl.ReadHistoryErrorMsgRequest) As OpenControl.ReadHistoryErrorMsgResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadHistoryLogMsg non è RPC né incapsulata da documenti. _ Function ReadHistoryLogMsg(ByVal request As OpenControl.ReadHistoryLogMsgRequest) As OpenControl.ReadHistoryLogMsgResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadHistoryAnomalyMsg non è RPC né incapsulata da documenti. _ Function ReadHistoryAnomalyMsg(ByVal request As OpenControl.ReadHistoryAnomalyMsgRequest) As OpenControl.ReadHistoryAnomalyMsgResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadCurrentErrorMsg non è RPC né incapsulata da documenti. _ Function ReadCurrentErrorMsg(ByVal request As OpenControl.ReadCurrentErrorMsgRequest) As OpenControl.ReadCurrentErrorMsgResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadCurrentEmergMsg non è RPC né incapsulata da documenti. _ Function ReadCurrentEmergMsg(ByVal request As OpenControl.ReadCurrentEmergMsgRequest) As OpenControl.ReadCurrentEmergMsgResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadCurrentAnomalyMsg non è RPC né incapsulata da documenti. _ Function ReadCurrentAnomalyMsg(ByVal request As OpenControl.ReadCurrentAnomalyMsgRequest) As OpenControl.ReadCurrentAnomalyMsgResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetPTechSizes non è RPC né incapsulata da documenti. _ Function GetPTechSizes(ByVal request As OpenControl.GetPTechSizesRequest) As OpenControl.GetPTechSizesResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LoadPTech non è RPC né incapsulata da documenti. _ Function LoadPTech(ByVal request As OpenControl.LoadPTechRequest) As OpenControl.LoadPTechResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetMarkerInfo non è RPC né incapsulata da documenti. _ Function GetMarkerInfo(ByVal request As OpenControl.GetMarkerInfoRequest) As OpenControl.GetMarkerInfoResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ManagePartProgram non è RPC né incapsulata da documenti. _ Function ManagePartProgram(ByVal request As OpenControl.ManagePartProgramRequest) As OpenControl.ManagePartProgramResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSOpenFile non è RPC né incapsulata da documenti. _ Function LogFSOpenFile(ByVal request As OpenControl.LogFSOpenFileRequest) As OpenControl.LogFSOpenFileResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSCloseFile non è RPC né incapsulata da documenti. _ Function LogFSCloseFile(ByVal request As OpenControl.LogFSCloseFileRequest) As OpenControl.LogFSCloseFileResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSWriteRecord non è RPC né incapsulata da documenti. _ Function LogFSWriteRecord(ByVal request As OpenControl.LogFSWriteRecordRequest) As OpenControl.LogFSWriteRecordResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione LogFSReadRecord non è RPC né incapsulata da documenti. _ Function LogFSReadRecord(ByVal request As OpenControl.LogFSReadRecordRequest) As OpenControl.LogFSReadRecordResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione ReadRemapDefinitions non è RPC né incapsulata da documenti. _ Function ReadRemapDefinitions(ByVal request As OpenControl.ReadRemapDefinitionsRequest) As OpenControl.ReadRemapDefinitionsResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione WriteRemapDefinitions non è RPC né incapsulata da documenti. _ Function WriteRemapDefinitions(ByVal request As OpenControl.WriteRemapDefinitionsRequest) As OpenControl.WriteRemapDefinitionsResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetServoPar non è RPC né incapsulata da documenti. _ Function GetServoPar(ByVal request As OpenControl.GetServoParRequest) As OpenControl.GetServoParResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetServoPar non è RPC né incapsulata da documenti. _ Function SetServoPar(ByVal request As OpenControl.SetServoParRequest) As OpenControl.SetServoParResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetCNCRegKey non è RPC né incapsulata da documenti. _ Function GetCNCRegKey(ByVal request As OpenControl.GetCNCRegKeyRequest) As OpenControl.GetCNCRegKeyResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SetIpAddress non è RPC né incapsulata da documenti. _ Function SetIpAddress(ByVal request As OpenControl.SetIpAddressRequest) As OpenControl.SetIpAddressResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione GetProcInInput non è RPC né incapsulata da documenti. _ Function GetProcInInput(ByVal request As OpenControl.GetProcInInputRequest) As OpenControl.GetProcInInputResponse 'CODEGEN: Generazione di un contratto di messaggio perché l'operazione SndProcInpData non è RPC né incapsulata da documenti. _ Function SndProcInpData(ByVal request As OpenControl.SndProcInpDataRequest) As OpenControl.SndProcInpDataResponse End Interface ''' _ Partial Public Class BootPhaseEnquiry Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class DEFRAME Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private rowField As UShort Private colField As UShort Private lenField As UShort Private textField() As Byte ''' _ Public Property row() As UShort Get Return Me.rowField End Get Set Me.rowField = value Me.RaisePropertyChanged("row") End Set End Property ''' _ Public Property col() As UShort Get Return Me.colField End Get Set Me.colField = value Me.RaisePropertyChanged("col") End Set End Property ''' _ Public Property len() As UShort Get Return Me.lenField End Get Set Me.lenField = value Me.RaisePropertyChanged("len") End Set End Property ''' _ Public Property text() As Byte() Get Return Me.textField End Get Set Me.textField = value Me.RaisePropertyChanged("text") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class DEFIELDCONTROL Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private strmatchField() As Byte Private rangebyteField() As Byte Private rangeintField() As Short Private rangelongField() As Long Private rangeuintField() As UShort Private rangeulongField() As ULong Private rangefloatField() As Double Private rangedoubleField() As Double ''' _ Public Property strmatch() As Byte() Get Return Me.strmatchField End Get Set Me.strmatchField = value Me.RaisePropertyChanged("strmatch") End Set End Property ''' _ Public Property rangebyte() As Byte() Get Return Me.rangebyteField End Get Set Me.rangebyteField = value Me.RaisePropertyChanged("rangebyte") End Set End Property ''' _ Public Property rangeint() As Short() Get Return Me.rangeintField End Get Set Me.rangeintField = value Me.RaisePropertyChanged("rangeint") End Set End Property ''' _ Public Property rangelong() As Long() Get Return Me.rangelongField End Get Set Me.rangelongField = value Me.RaisePropertyChanged("rangelong") End Set End Property ''' _ Public Property rangeuint() As UShort() Get Return Me.rangeuintField End Get Set Me.rangeuintField = value Me.RaisePropertyChanged("rangeuint") End Set End Property ''' _ Public Property rangeulong() As ULong() Get Return Me.rangeulongField End Get Set Me.rangeulongField = value Me.RaisePropertyChanged("rangeulong") End Set End Property ''' _ Public Property rangefloat() As Double() Get Return Me.rangefloatField End Get Set Me.rangefloatField = value Me.RaisePropertyChanged("rangefloat") End Set End Property ''' _ Public Property rangedouble() As Double() Get Return Me.rangedoubleField End Get Set Me.rangedoubleField = value Me.RaisePropertyChanged("rangedouble") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class DEFIELDCHECK Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private convField As Byte Private valueField As DEFIELDCONTROL ''' _ Public Property conv() As Byte Get Return Me.convField End Get Set Me.convField = value Me.RaisePropertyChanged("conv") End Set End Property ''' _ Public Property value() As DEFIELDCONTROL Get Return Me.valueField End Get Set Me.valueField = value Me.RaisePropertyChanged("value") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class DEFIELD Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private rowField As UShort Private colField As UShort Private typeField As Byte Private myIdField As Byte Private sizeField As UShort Private disSizeField As UShort Private checkField As DEFIELDCHECK ''' _ Public Property row() As UShort Get Return Me.rowField End Get Set Me.rowField = value Me.RaisePropertyChanged("row") End Set End Property ''' _ Public Property col() As UShort Get Return Me.colField End Get Set Me.colField = value Me.RaisePropertyChanged("col") End Set End Property ''' _ Public Property type() As Byte Get Return Me.typeField End Get Set Me.typeField = value Me.RaisePropertyChanged("type") End Set End Property ''' _ Public Property myId() As Byte Get Return Me.myIdField End Get Set Me.myIdField = value Me.RaisePropertyChanged("myId") End Set End Property ''' _ Public Property size() As UShort Get Return Me.sizeField End Get Set Me.sizeField = value Me.RaisePropertyChanged("size") End Set End Property ''' _ Public Property disSize() As UShort Get Return Me.disSizeField End Get Set Me.disSizeField = value Me.RaisePropertyChanged("disSize") End Set End Property ''' _ Public Property check() As DEFIELDCHECK Get Return Me.checkField End Get Set Me.checkField = value Me.RaisePropertyChanged("check") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class DEKEY Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private abortField() As Byte Private confirm1Field() As Byte Private confirm2Field() As Byte Private confirm3Field() As Byte Private resetField() As Byte Private incresField() As Byte ''' _ Public Property abort() As Byte() Get Return Me.abortField End Get Set Me.abortField = value Me.RaisePropertyChanged("abort") End Set End Property ''' _ Public Property confirm1() As Byte() Get Return Me.confirm1Field End Get Set Me.confirm1Field = value Me.RaisePropertyChanged("confirm1") End Set End Property ''' _ Public Property confirm2() As Byte() Get Return Me.confirm2Field End Get Set Me.confirm2Field = value Me.RaisePropertyChanged("confirm2") End Set End Property ''' _ Public Property confirm3() As Byte() Get Return Me.confirm3Field End Get Set Me.confirm3Field = value Me.RaisePropertyChanged("confirm3") End Set End Property ''' _ Public Property reset() As Byte() Get Return Me.resetField End Get Set Me.resetField = value Me.RaisePropertyChanged("reset") End Set End Property ''' _ Public Property incres() As Byte() Get Return Me.incresField End Get Set Me.incresField = value Me.RaisePropertyChanged("incres") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class USERINPTAB Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private myIdField As Short Private iniRowField As Byte Private iniColField As Byte Private totRowField As Byte Private totColField As Byte Private myTypeField As Byte Private helpField() As Byte Private totFrameField As Byte Private totFieldField As Byte Private keyField As DEKEY Private fldField() As DEFIELD Private frmField() As DEFRAME Private strDef1Field() As Byte Private strDef2Field() As Byte Private strDef3Field() As Byte Private strDef4Field() As Byte Private strDef5Field() As Byte Private strDef6Field() As Byte Private strDef7Field() As Byte Private strDef8Field() As Byte Private decolorField() As ULong ''' _ Public Property myId() As Short Get Return Me.myIdField End Get Set Me.myIdField = value Me.RaisePropertyChanged("myId") End Set End Property ''' _ Public Property iniRow() As Byte Get Return Me.iniRowField End Get Set Me.iniRowField = value Me.RaisePropertyChanged("iniRow") End Set End Property ''' _ Public Property iniCol() As Byte Get Return Me.iniColField End Get Set Me.iniColField = value Me.RaisePropertyChanged("iniCol") End Set End Property ''' _ Public Property totRow() As Byte Get Return Me.totRowField End Get Set Me.totRowField = value Me.RaisePropertyChanged("totRow") End Set End Property ''' _ Public Property totCol() As Byte Get Return Me.totColField End Get Set Me.totColField = value Me.RaisePropertyChanged("totCol") End Set End Property ''' _ Public Property myType() As Byte Get Return Me.myTypeField End Get Set Me.myTypeField = value Me.RaisePropertyChanged("myType") End Set End Property ''' _ Public Property help() As Byte() Get Return Me.helpField End Get Set Me.helpField = value Me.RaisePropertyChanged("help") End Set End Property ''' _ Public Property totFrame() As Byte Get Return Me.totFrameField End Get Set Me.totFrameField = value Me.RaisePropertyChanged("totFrame") End Set End Property ''' _ Public Property totField() As Byte Get Return Me.totFieldField End Get Set Me.totFieldField = value Me.RaisePropertyChanged("totField") End Set End Property ''' _ Public Property key() As DEKEY Get Return Me.keyField End Get Set Me.keyField = value Me.RaisePropertyChanged("key") End Set End Property ''' _ Public Property fld() As DEFIELD() Get Return Me.fldField End Get Set Me.fldField = value Me.RaisePropertyChanged("fld") End Set End Property ''' _ Public Property frm() As DEFRAME() Get Return Me.frmField End Get Set Me.frmField = value Me.RaisePropertyChanged("frm") End Set End Property ''' _ Public Property strDef1() As Byte() Get Return Me.strDef1Field End Get Set Me.strDef1Field = value Me.RaisePropertyChanged("strDef1") End Set End Property ''' _ Public Property strDef2() As Byte() Get Return Me.strDef2Field End Get Set Me.strDef2Field = value Me.RaisePropertyChanged("strDef2") End Set End Property ''' _ Public Property strDef3() As Byte() Get Return Me.strDef3Field End Get Set Me.strDef3Field = value Me.RaisePropertyChanged("strDef3") End Set End Property ''' _ Public Property strDef4() As Byte() Get Return Me.strDef4Field End Get Set Me.strDef4Field = value Me.RaisePropertyChanged("strDef4") End Set End Property ''' _ Public Property strDef5() As Byte() Get Return Me.strDef5Field End Get Set Me.strDef5Field = value Me.RaisePropertyChanged("strDef5") End Set End Property ''' _ Public Property strDef6() As Byte() Get Return Me.strDef6Field End Get Set Me.strDef6Field = value Me.RaisePropertyChanged("strDef6") End Set End Property ''' _ Public Property strDef7() As Byte() Get Return Me.strDef7Field End Get Set Me.strDef7Field = value Me.RaisePropertyChanged("strDef7") End Set End Property ''' _ Public Property strDef8() As Byte() Get Return Me.strDef8Field End Get Set Me.strDef8Field = value Me.RaisePropertyChanged("strDef8") End Set End Property ''' _ Public Property decolor() As ULong() Get Return Me.decolorField End Get Set Me.decolorField = value Me.RaisePropertyChanged("decolor") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class INPUTINFO Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private processField As UShort Private isInInputField As Byte Private dataField As USERINPTAB ''' _ Public Property Process() As UShort Get Return Me.processField End Get Set Me.processField = value Me.RaisePropertyChanged("Process") End Set End Property ''' _ Public Property isInInput() As Byte Get Return Me.isInInputField End Get Set Me.isInInputField = value Me.RaisePropertyChanged("isInInput") End Set End Property ''' _ Public Property Data() As USERINPTAB Get Return Me.dataField End Get Set Me.dataField = value Me.RaisePropertyChanged("Data") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class REMAPDEF Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private varTypeField As Byte Private physAddrField As UShort Private physBitField As Byte Private logicAddrField As UShort Private logicBitField As Byte Private modeField As Byte Private riseTimeField As UInteger Private fallTimeField As UInteger Private valueField As UInteger Private iOMsgIdField As UInteger Private iOClassField As Byte Private currPhysValueField As UInteger Private currLogicValueField As UInteger ''' _ Public Property VarType() As Byte Get Return Me.varTypeField End Get Set Me.varTypeField = value Me.RaisePropertyChanged("VarType") End Set End Property ''' _ Public Property PhysAddr() As UShort Get Return Me.physAddrField End Get Set Me.physAddrField = value Me.RaisePropertyChanged("PhysAddr") End Set End Property ''' _ Public Property PhysBit() As Byte Get Return Me.physBitField End Get Set Me.physBitField = value Me.RaisePropertyChanged("PhysBit") End Set End Property ''' _ Public Property LogicAddr() As UShort Get Return Me.logicAddrField End Get Set Me.logicAddrField = value Me.RaisePropertyChanged("LogicAddr") End Set End Property ''' _ Public Property LogicBit() As Byte Get Return Me.logicBitField End Get Set Me.logicBitField = value Me.RaisePropertyChanged("LogicBit") End Set End Property ''' _ Public Property Mode() As Byte Get Return Me.modeField End Get Set Me.modeField = value Me.RaisePropertyChanged("Mode") End Set End Property ''' _ Public Property RiseTime() As UInteger Get Return Me.riseTimeField End Get Set Me.riseTimeField = value Me.RaisePropertyChanged("RiseTime") End Set End Property ''' _ Public Property FallTime() As UInteger Get Return Me.fallTimeField End Get Set Me.fallTimeField = value Me.RaisePropertyChanged("FallTime") End Set End Property ''' _ Public Property Value() As UInteger Get Return Me.valueField End Get Set Me.valueField = value Me.RaisePropertyChanged("Value") End Set End Property ''' _ Public Property IOMsgId() As UInteger Get Return Me.iOMsgIdField End Get Set Me.iOMsgIdField = value Me.RaisePropertyChanged("IOMsgId") End Set End Property ''' _ Public Property IOClass() As Byte Get Return Me.iOClassField End Get Set Me.iOClassField = value Me.RaisePropertyChanged("IOClass") End Set End Property ''' _ Public Property CurrPhysValue() As UInteger Get Return Me.currPhysValueField End Get Set Me.currPhysValueField = value Me.RaisePropertyChanged("CurrPhysValue") End Set End Property ''' _ Public Property CurrLogicValue() As UInteger Get Return Me.currLogicValueField End Get Set Me.currLogicValueField = value Me.RaisePropertyChanged("CurrLogicValue") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class MARKERINFO Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private numberField As Short Private lineNumField() As UInteger Private numBlksField() As UInteger Private markerNameField()() As Byte Private pPnameField()() As Byte Private breakValField As UInteger ''' _ Public Property Number() As Short Get Return Me.numberField End Get Set Me.numberField = value Me.RaisePropertyChanged("Number") End Set End Property ''' _ Public Property LineNum() As UInteger() Get Return Me.lineNumField End Get Set Me.lineNumField = value Me.RaisePropertyChanged("LineNum") End Set End Property ''' _ Public Property NumBlks() As UInteger() Get Return Me.numBlksField End Get Set Me.numBlksField = value Me.RaisePropertyChanged("NumBlks") End Set End Property ''' _ Public Property MarkerName() As Byte()() Get Return Me.markerNameField End Get Set Me.markerNameField = value Me.RaisePropertyChanged("MarkerName") End Set End Property ''' _ Public Property PPname() As Byte()() Get Return Me.pPnameField End Get Set Me.pPnameField = value Me.RaisePropertyChanged("PPname") End Set End Property ''' _ Public Property breakVal() As UInteger Get Return Me.breakValField End Get Set Me.breakValField = value Me.RaisePropertyChanged("breakVal") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class MSGANOMALY Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private bootIDField As UInteger Private systemTimeField As SYSTEMTIMECNDEX Private unIdSeqField As UInteger Private codeErrField As UInteger Private lineaField As UInteger Private formatTxtField() As Byte ''' _ Public Property BootID() As UInteger Get Return Me.bootIDField End Get Set Me.bootIDField = value Me.RaisePropertyChanged("BootID") End Set End Property ''' _ Public Property SystemTime() As SYSTEMTIMECNDEX Get Return Me.systemTimeField End Get Set Me.systemTimeField = value Me.RaisePropertyChanged("SystemTime") End Set End Property ''' _ Public Property UnIdSeq() As UInteger Get Return Me.unIdSeqField End Get Set Me.unIdSeqField = value Me.RaisePropertyChanged("UnIdSeq") End Set End Property ''' _ Public Property CodeErr() As UInteger Get Return Me.codeErrField End Get Set Me.codeErrField = value Me.RaisePropertyChanged("CodeErr") End Set End Property ''' _ Public Property Linea() As UInteger Get Return Me.lineaField End Get Set Me.lineaField = value Me.RaisePropertyChanged("Linea") End Set End Property ''' _ Public Property FormatTxt() As Byte() Get Return Me.formatTxtField End Get Set Me.formatTxtField = value Me.RaisePropertyChanged("FormatTxt") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class SYSTEMTIMECNDEX Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private wYearField As UShort Private wMonthField As UShort Private wDayOfWeekField As UShort Private wDayField As UShort Private wHourField As UShort Private wMinuteField As UShort Private wSecondField As UShort Private wMillisecondsField As UShort ''' _ Public Property wYear() As UShort Get Return Me.wYearField End Get Set Me.wYearField = value Me.RaisePropertyChanged("wYear") End Set End Property ''' _ Public Property wMonth() As UShort Get Return Me.wMonthField End Get Set Me.wMonthField = value Me.RaisePropertyChanged("wMonth") End Set End Property ''' _ Public Property wDayOfWeek() As UShort Get Return Me.wDayOfWeekField End Get Set Me.wDayOfWeekField = value Me.RaisePropertyChanged("wDayOfWeek") End Set End Property ''' _ Public Property wDay() As UShort Get Return Me.wDayField End Get Set Me.wDayField = value Me.RaisePropertyChanged("wDay") End Set End Property ''' _ Public Property wHour() As UShort Get Return Me.wHourField End Get Set Me.wHourField = value Me.RaisePropertyChanged("wHour") End Set End Property ''' _ Public Property wMinute() As UShort Get Return Me.wMinuteField End Get Set Me.wMinuteField = value Me.RaisePropertyChanged("wMinute") End Set End Property ''' _ Public Property wSecond() As UShort Get Return Me.wSecondField End Get Set Me.wSecondField = value Me.RaisePropertyChanged("wSecond") End Set End Property ''' _ Public Property wMilliseconds() As UShort Get Return Me.wMillisecondsField End Get Set Me.wMillisecondsField = value Me.RaisePropertyChanged("wMilliseconds") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class MSGLOGS Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private bootIDField As UInteger Private systemTimeField As SYSTEMTIMECNDEX Private unIdSeqField As UInteger Private codeLogField As UInteger Private errinfoField As UInteger Private formatTxtField() As Byte ''' _ Public Property BootID() As UInteger Get Return Me.bootIDField End Get Set Me.bootIDField = value Me.RaisePropertyChanged("BootID") End Set End Property ''' _ Public Property SystemTime() As SYSTEMTIMECNDEX Get Return Me.systemTimeField End Get Set Me.systemTimeField = value Me.RaisePropertyChanged("SystemTime") End Set End Property ''' _ Public Property UnIdSeq() As UInteger Get Return Me.unIdSeqField End Get Set Me.unIdSeqField = value Me.RaisePropertyChanged("UnIdSeq") End Set End Property ''' _ Public Property CodeLog() As UInteger Get Return Me.codeLogField End Get Set Me.codeLogField = value Me.RaisePropertyChanged("CodeLog") End Set End Property ''' _ Public Property Errinfo() As UInteger Get Return Me.errinfoField End Get Set Me.errinfoField = value Me.RaisePropertyChanged("Errinfo") End Set End Property ''' _ Public Property FormatTxt() As Byte() Get Return Me.formatTxtField End Get Set Me.formatTxtField = value Me.RaisePropertyChanged("FormatTxt") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class MSGERROR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private bootIDField As UInteger Private systemTimeField As SYSTEMTIMECNDEX Private unIdSeqField As UInteger Private codeErrField As UInteger Private processField As Short Private comandoField As SByte Private subComField As SByte Private formatTxtField() As Byte ''' _ Public Property BootID() As UInteger Get Return Me.bootIDField End Get Set Me.bootIDField = value Me.RaisePropertyChanged("BootID") End Set End Property ''' _ Public Property SystemTime() As SYSTEMTIMECNDEX Get Return Me.systemTimeField End Get Set Me.systemTimeField = value Me.RaisePropertyChanged("SystemTime") End Set End Property ''' _ Public Property UnIdSeq() As UInteger Get Return Me.unIdSeqField End Get Set Me.unIdSeqField = value Me.RaisePropertyChanged("UnIdSeq") End Set End Property ''' _ Public Property CodeErr() As UInteger Get Return Me.codeErrField End Get Set Me.codeErrField = value Me.RaisePropertyChanged("CodeErr") End Set End Property ''' _ Public Property Process() As Short Get Return Me.processField End Get Set Me.processField = value Me.RaisePropertyChanged("Process") End Set End Property ''' _ Public Property Comando() As SByte Get Return Me.comandoField End Get Set Me.comandoField = value Me.RaisePropertyChanged("Comando") End Set End Property ''' _ Public Property SubCom() As SByte Get Return Me.subComField End Get Set Me.subComField = value Me.RaisePropertyChanged("SubCom") End Set End Property ''' _ Public Property FormatTxt() As Byte() Get Return Me.formatTxtField End Get Set Me.formatTxtField = value Me.RaisePropertyChanged("FormatTxt") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class MSGEMERGENCY Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private bootIDField As UInteger Private systemTimeField As SYSTEMTIMECNDEX Private unIdSeqField As UInteger Private codeErrField As UInteger Private processField As Short Private procErrField As Short Private formatTxtField() As Byte ''' _ Public Property BootID() As UInteger Get Return Me.bootIDField End Get Set Me.bootIDField = value Me.RaisePropertyChanged("BootID") End Set End Property ''' _ Public Property SystemTime() As SYSTEMTIMECNDEX Get Return Me.systemTimeField End Get Set Me.systemTimeField = value Me.RaisePropertyChanged("SystemTime") End Set End Property ''' _ Public Property UnIdSeq() As UInteger Get Return Me.unIdSeqField End Get Set Me.unIdSeqField = value Me.RaisePropertyChanged("UnIdSeq") End Set End Property ''' _ Public Property CodeErr() As UInteger Get Return Me.codeErrField End Get Set Me.codeErrField = value Me.RaisePropertyChanged("CodeErr") End Set End Property ''' _ Public Property Process() As Short Get Return Me.processField End Get Set Me.processField = value Me.RaisePropertyChanged("Process") End Set End Property ''' _ Public Property ProcErr() As Short Get Return Me.procErrField End Get Set Me.procErrField = value Me.RaisePropertyChanged("ProcErr") End Set End Property ''' _ Public Property FormatTxt() As Byte() Get Return Me.formatTxtField End Get Set Me.formatTxtField = value Me.RaisePropertyChanged("FormatTxt") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class MONVARDESCR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private classField As UShort Private subClassField As UShort Private deviceIDField As UShort Private codeField As UShort Private addressField As UShort Private signalField As UShort Private samplingPeriodField As Double ''' _ Public Property [Class]() As UShort Get Return Me.classField End Get Set Me.classField = value Me.RaisePropertyChanged("Class") End Set End Property ''' _ Public Property SubClass() As UShort Get Return Me.subClassField End Get Set Me.subClassField = value Me.RaisePropertyChanged("SubClass") End Set End Property ''' _ Public Property DeviceID() As UShort Get Return Me.deviceIDField End Get Set Me.deviceIDField = value Me.RaisePropertyChanged("DeviceID") End Set End Property ''' _ Public Property Code() As UShort Get Return Me.codeField End Get Set Me.codeField = value Me.RaisePropertyChanged("Code") End Set End Property ''' _ Public Property Address() As UShort Get Return Me.addressField End Get Set Me.addressField = value Me.RaisePropertyChanged("Address") End Set End Property ''' _ Public Property Signal() As UShort Get Return Me.signalField End Get Set Me.signalField = value Me.RaisePropertyChanged("Signal") End Set End Property ''' _ Public Property SamplingPeriod() As Double Get Return Me.samplingPeriodField End Get Set Me.samplingPeriodField = value Me.RaisePropertyChanged("SamplingPeriod") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class MONCUSTOMEVENTINFO Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private idField As UShort Private typeField As UShort Private nameField As String ''' _ Public Property ID() As UShort Get Return Me.idField End Get Set Me.idField = value Me.RaisePropertyChanged("ID") End Set End Property ''' _ Public Property Type() As UShort Get Return Me.typeField End Get Set Me.typeField = value Me.RaisePropertyChanged("Type") End Set End Property ''' _ Public Property Name() As String Get Return Me.nameField End Get Set Me.nameField = value Me.RaisePropertyChanged("Name") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class FILEFINDDATA Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private fileAttributesField As UInteger Private lowDateCreationTimeField As UInteger Private highDateCreationTimeField As UInteger Private lowDateLastAccessTimeField As UInteger Private highDateLastAccessTimeField As UInteger Private lowDateLastWriteTimeField As UInteger Private highDateLastWriteTimeField As UInteger Private fileSizeHighField As UInteger Private fileSizeLowField As UInteger Private fileNameField As String ''' _ Public Property FileAttributes() As UInteger Get Return Me.fileAttributesField End Get Set Me.fileAttributesField = value Me.RaisePropertyChanged("FileAttributes") End Set End Property ''' _ Public Property LowDateCreationTime() As UInteger Get Return Me.lowDateCreationTimeField End Get Set Me.lowDateCreationTimeField = value Me.RaisePropertyChanged("LowDateCreationTime") End Set End Property ''' _ Public Property HighDateCreationTime() As UInteger Get Return Me.highDateCreationTimeField End Get Set Me.highDateCreationTimeField = value Me.RaisePropertyChanged("HighDateCreationTime") End Set End Property ''' _ Public Property LowDateLastAccessTime() As UInteger Get Return Me.lowDateLastAccessTimeField End Get Set Me.lowDateLastAccessTimeField = value Me.RaisePropertyChanged("LowDateLastAccessTime") End Set End Property ''' _ Public Property HighDateLastAccessTime() As UInteger Get Return Me.highDateLastAccessTimeField End Get Set Me.highDateLastAccessTimeField = value Me.RaisePropertyChanged("HighDateLastAccessTime") End Set End Property ''' _ Public Property LowDateLastWriteTime() As UInteger Get Return Me.lowDateLastWriteTimeField End Get Set Me.lowDateLastWriteTimeField = value Me.RaisePropertyChanged("LowDateLastWriteTime") End Set End Property ''' _ Public Property HighDateLastWriteTime() As UInteger Get Return Me.highDateLastWriteTimeField End Get Set Me.highDateLastWriteTimeField = value Me.RaisePropertyChanged("HighDateLastWriteTime") End Set End Property ''' _ Public Property FileSizeHigh() As UInteger Get Return Me.fileSizeHighField End Get Set Me.fileSizeHighField = value Me.RaisePropertyChanged("FileSizeHigh") End Set End Property ''' _ Public Property FileSizeLow() As UInteger Get Return Me.fileSizeLowField End Get Set Me.fileSizeLowField = value Me.RaisePropertyChanged("FileSizeLow") End Set End Property ''' _ Public Property FileName() As String Get Return Me.fileNameField End Get Set Me.fileNameField = value Me.RaisePropertyChanged("FileName") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class ERRMSG Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private msg1Field As String Private msg2Field As String Private msg3Field As String Private msg4Field As String ''' _ Public Property Msg1() As String Get Return Me.msg1Field End Get Set Me.msg1Field = value Me.RaisePropertyChanged("Msg1") End Set End Property ''' _ Public Property Msg2() As String Get Return Me.msg2Field End Get Set Me.msg2Field = value Me.RaisePropertyChanged("Msg2") End Set End Property ''' _ Public Property Msg3() As String Get Return Me.msg3Field End Get Set Me.msg3Field = value Me.RaisePropertyChanged("Msg3") End Set End Property ''' _ Public Property Msg4() As String Get Return Me.msg4Field End Get Set Me.msg4Field = value Me.RaisePropertyChanged("Msg4") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class GETBLKNUMDATA Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private ppActNumField As UShort Private mainActBlkField As UInteger Private sbr1ActBlkField As UInteger Private sbr2ActBlkField As UInteger Private sbr3ActBlkField As UInteger Private sbr4ActBlkField As UInteger ''' _ Public Property ppActNum() As UShort Get Return Me.ppActNumField End Get Set Me.ppActNumField = value Me.RaisePropertyChanged("ppActNum") End Set End Property ''' _ Public Property MainActBlk() As UInteger Get Return Me.mainActBlkField End Get Set Me.mainActBlkField = value Me.RaisePropertyChanged("MainActBlk") End Set End Property ''' _ Public Property Sbr1ActBlk() As UInteger Get Return Me.sbr1ActBlkField End Get Set Me.sbr1ActBlkField = value Me.RaisePropertyChanged("Sbr1ActBlk") End Set End Property ''' _ Public Property Sbr2ActBlk() As UInteger Get Return Me.sbr2ActBlkField End Get Set Me.sbr2ActBlkField = value Me.RaisePropertyChanged("Sbr2ActBlk") End Set End Property ''' _ Public Property Sbr3ActBlk() As UInteger Get Return Me.sbr3ActBlkField End Get Set Me.sbr3ActBlkField = value Me.RaisePropertyChanged("Sbr3ActBlk") End Set End Property ''' _ Public Property Sbr4ActBlk() As UInteger Get Return Me.sbr4ActBlkField End Get Set Me.sbr4ActBlkField = value Me.RaisePropertyChanged("Sbr4ActBlk") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class PROCDATA Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private modeField As UShort Private statusField As UShort Private subStatusField As UShort ''' _ Public Property Mode() As UShort Get Return Me.modeField End Get Set Me.modeField = value Me.RaisePropertyChanged("Mode") End Set End Property ''' _ Public Property Status() As UShort Get Return Me.statusField End Get Set Me.statusField = value Me.RaisePropertyChanged("Status") End Set End Property ''' _ Public Property SubStatus() As UShort Get Return Me.subStatusField End Get Set Me.subStatusField = value Me.RaisePropertyChanged("SubStatus") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class GETINFO2DATA Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private statusWordField As UShort Private urpField As Double Private actToolField As Double Private actOffsetField As UShort Private progToolField As Double Private progOffsetField As UShort Private mStatusField As UShort Private mValueField() As UShort Private ax1NameField As Byte Private ax1OffsetField As Double Private ax2NameField As Byte Private ax2OffsetField As Double Private radiusField As Double ''' _ Public Property StatusWord() As UShort Get Return Me.statusWordField End Get Set Me.statusWordField = value Me.RaisePropertyChanged("StatusWord") End Set End Property ''' _ Public Property Urp() As Double Get Return Me.urpField End Get Set Me.urpField = value Me.RaisePropertyChanged("Urp") End Set End Property ''' _ Public Property ActTool() As Double Get Return Me.actToolField End Get Set Me.actToolField = value Me.RaisePropertyChanged("ActTool") End Set End Property ''' _ Public Property ActOffset() As UShort Get Return Me.actOffsetField End Get Set Me.actOffsetField = value Me.RaisePropertyChanged("ActOffset") End Set End Property ''' _ Public Property ProgTool() As Double Get Return Me.progToolField End Get Set Me.progToolField = value Me.RaisePropertyChanged("ProgTool") End Set End Property ''' _ Public Property ProgOffset() As UShort Get Return Me.progOffsetField End Get Set Me.progOffsetField = value Me.RaisePropertyChanged("ProgOffset") End Set End Property ''' _ Public Property MStatus() As UShort Get Return Me.mStatusField End Get Set Me.mStatusField = value Me.RaisePropertyChanged("MStatus") End Set End Property ''' _ Public Property MValue() As UShort() Get Return Me.mValueField End Get Set Me.mValueField = value Me.RaisePropertyChanged("MValue") End Set End Property ''' _ Public Property Ax1Name() As Byte Get Return Me.ax1NameField End Get Set Me.ax1NameField = value Me.RaisePropertyChanged("Ax1Name") End Set End Property ''' _ Public Property Ax1Offset() As Double Get Return Me.ax1OffsetField End Get Set Me.ax1OffsetField = value Me.RaisePropertyChanged("Ax1Offset") End Set End Property ''' _ Public Property Ax2Name() As Byte Get Return Me.ax2NameField End Get Set Me.ax2NameField = value Me.RaisePropertyChanged("Ax2Name") End Set End Property ''' _ Public Property Ax2Offset() As Double Get Return Me.ax2OffsetField End Get Set Me.ax2OffsetField = value Me.RaisePropertyChanged("Ax2Offset") End Set End Property ''' _ Public Property Radius() As Double Get Return Me.radiusField End Get Set Me.radiusField = value Me.RaisePropertyChanged("Radius") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class GETINFO1DATA Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private statusField As Byte Private substatusField As Byte Private modeselectField As Byte Private jogdirField As Byte Private speedovField As UShort Private feedovField As UShort Private rapfeedovField As UShort Private manfeedovField As UShort Private jogincrField As Double Private numaxselField As Byte Private axselField() As Byte Private actualtoolField As Double Private progrtoolField As Double Private actualtooloffField As UShort Private progrtooloffField As UShort Private realspeedField As Double Private progrspeedField As Double Private progrfeedField As Double Private rapidfeedField As Double Private realfeedField As Double Private feedmisunitField As UShort Private mainprogrnameField As String Private dryrunField As Byte Private rapidoverrideField As Byte Private disableslashedblkField As Byte Private optionalstopField As Byte Private forcerapidfeedField As Byte Private autojogretField As Byte Private blockretraceField As Byte Private lastncerrorField As UShort Private freeField As String ''' _ Public Property status() As Byte Get Return Me.statusField End Get Set Me.statusField = value Me.RaisePropertyChanged("status") End Set End Property ''' _ Public Property substatus() As Byte Get Return Me.substatusField End Get Set Me.substatusField = value Me.RaisePropertyChanged("substatus") End Set End Property ''' _ Public Property modeselect() As Byte Get Return Me.modeselectField End Get Set Me.modeselectField = value Me.RaisePropertyChanged("modeselect") End Set End Property ''' _ Public Property jogdir() As Byte Get Return Me.jogdirField End Get Set Me.jogdirField = value Me.RaisePropertyChanged("jogdir") End Set End Property ''' _ Public Property speedov() As UShort Get Return Me.speedovField End Get Set Me.speedovField = value Me.RaisePropertyChanged("speedov") End Set End Property ''' _ Public Property feedov() As UShort Get Return Me.feedovField End Get Set Me.feedovField = value Me.RaisePropertyChanged("feedov") End Set End Property ''' _ Public Property rapfeedov() As UShort Get Return Me.rapfeedovField End Get Set Me.rapfeedovField = value Me.RaisePropertyChanged("rapfeedov") End Set End Property ''' _ Public Property manfeedov() As UShort Get Return Me.manfeedovField End Get Set Me.manfeedovField = value Me.RaisePropertyChanged("manfeedov") End Set End Property ''' _ Public Property jogincr() As Double Get Return Me.jogincrField End Get Set Me.jogincrField = value Me.RaisePropertyChanged("jogincr") End Set End Property ''' _ Public Property numaxsel() As Byte Get Return Me.numaxselField End Get Set Me.numaxselField = value Me.RaisePropertyChanged("numaxsel") End Set End Property ''' _ Public Property axsel() As Byte() Get Return Me.axselField End Get Set Me.axselField = value Me.RaisePropertyChanged("axsel") End Set End Property ''' _ Public Property actualtool() As Double Get Return Me.actualtoolField End Get Set Me.actualtoolField = value Me.RaisePropertyChanged("actualtool") End Set End Property ''' _ Public Property progrtool() As Double Get Return Me.progrtoolField End Get Set Me.progrtoolField = value Me.RaisePropertyChanged("progrtool") End Set End Property ''' _ Public Property actualtooloff() As UShort Get Return Me.actualtooloffField End Get Set Me.actualtooloffField = value Me.RaisePropertyChanged("actualtooloff") End Set End Property ''' _ Public Property progrtooloff() As UShort Get Return Me.progrtooloffField End Get Set Me.progrtooloffField = value Me.RaisePropertyChanged("progrtooloff") End Set End Property ''' _ Public Property realspeed() As Double Get Return Me.realspeedField End Get Set Me.realspeedField = value Me.RaisePropertyChanged("realspeed") End Set End Property ''' _ Public Property progrspeed() As Double Get Return Me.progrspeedField End Get Set Me.progrspeedField = value Me.RaisePropertyChanged("progrspeed") End Set End Property ''' _ Public Property progrfeed() As Double Get Return Me.progrfeedField End Get Set Me.progrfeedField = value Me.RaisePropertyChanged("progrfeed") End Set End Property ''' _ Public Property rapidfeed() As Double Get Return Me.rapidfeedField End Get Set Me.rapidfeedField = value Me.RaisePropertyChanged("rapidfeed") End Set End Property ''' _ Public Property realfeed() As Double Get Return Me.realfeedField End Get Set Me.realfeedField = value Me.RaisePropertyChanged("realfeed") End Set End Property ''' _ Public Property feedmisunit() As UShort Get Return Me.feedmisunitField End Get Set Me.feedmisunitField = value Me.RaisePropertyChanged("feedmisunit") End Set End Property ''' _ Public Property mainprogrname() As String Get Return Me.mainprogrnameField End Get Set Me.mainprogrnameField = value Me.RaisePropertyChanged("mainprogrname") End Set End Property ''' _ Public Property dryrun() As Byte Get Return Me.dryrunField End Get Set Me.dryrunField = value Me.RaisePropertyChanged("dryrun") End Set End Property ''' _ Public Property rapidoverride() As Byte Get Return Me.rapidoverrideField End Get Set Me.rapidoverrideField = value Me.RaisePropertyChanged("rapidoverride") End Set End Property ''' _ Public Property disableslashedblk() As Byte Get Return Me.disableslashedblkField End Get Set Me.disableslashedblkField = value Me.RaisePropertyChanged("disableslashedblk") End Set End Property ''' _ Public Property optionalstop() As Byte Get Return Me.optionalstopField End Get Set Me.optionalstopField = value Me.RaisePropertyChanged("optionalstop") End Set End Property ''' _ Public Property forcerapidfeed() As Byte Get Return Me.forcerapidfeedField End Get Set Me.forcerapidfeedField = value Me.RaisePropertyChanged("forcerapidfeed") End Set End Property ''' _ Public Property autojogret() As Byte Get Return Me.autojogretField End Get Set Me.autojogretField = value Me.RaisePropertyChanged("autojogret") End Set End Property ''' _ Public Property blockretrace() As Byte Get Return Me.blockretraceField End Get Set Me.blockretraceField = value Me.RaisePropertyChanged("blockretrace") End Set End Property ''' _ Public Property lastncerror() As UShort Get Return Me.lastncerrorField End Get Set Me.lastncerrorField = value Me.RaisePropertyChanged("lastncerror") End Set End Property ''' _ Public Property free() As String Get Return Me.freeField End Get Set Me.freeField = value Me.RaisePropertyChanged("free") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class GETINTDATA Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private axisNameField As Byte Private modeField As Byte Private positionField As Double Private totalOffsetField As Double ''' _ Public Property AxisName() As Byte Get Return Me.axisNameField End Get Set Me.axisNameField = value Me.RaisePropertyChanged("AxisName") End Set End Property ''' _ Public Property mode() As Byte Get Return Me.modeField End Get Set Me.modeField = value Me.RaisePropertyChanged("mode") End Set End Property ''' _ Public Property position() As Double Get Return Me.positionField End Get Set Me.positionField = value Me.RaisePropertyChanged("position") End Set End Property ''' _ Public Property TotalOffset() As Double Get Return Me.totalOffsetField End Get Set Me.totalOffsetField = value Me.RaisePropertyChanged("TotalOffset") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class AXORIGNUM Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private axisNameField As Byte Private originNumberField As Byte Private originFlagField As UShort ''' _ Public Property AxisName() As Byte Get Return Me.axisNameField End Get Set Me.axisNameField = value Me.RaisePropertyChanged("AxisName") End Set End Property ''' _ Public Property OriginNumber() As Byte Get Return Me.originNumberField End Get Set Me.originNumberField = value Me.RaisePropertyChanged("OriginNumber") End Set End Property ''' _ Public Property OriginFlag() As UShort Get Return Me.originFlagField End Get Set Me.originFlagField = value Me.RaisePropertyChanged("OriginFlag") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class USERTABLEII Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private userValField() As Double ''' _ Public Property UserVal() As Double() Get Return Me.userValField End Get Set Me.userValField = value Me.RaisePropertyChanged("UserVal") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class OFFSETVALII Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private valOrigField As Double Private maxChangeValField As Double Private actChangeValField As Double ''' _ Public Property ValOrig() As Double Get Return Me.valOrigField End Get Set Me.valOrigField = value Me.RaisePropertyChanged("ValOrig") End Set End Property ''' _ Public Property MaxChangeVal() As Double Get Return Me.maxChangeValField End Get Set Me.maxChangeValField = value Me.RaisePropertyChanged("MaxChangeVal") End Set End Property ''' _ Public Property ActChangeVal() As Double Get Return Me.actChangeValField End Get Set Me.actChangeValField = value Me.RaisePropertyChanged("ActChangeVal") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class OFFSETTABLEII Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private lenValField() As OFFSETVALII Private diaValField() As OFFSETVALII Private orientField As UShort Private externTypeField As UShort Private externIndField As UShort Private duserField() As Double Private suserField() As Short Private descrField() As UShort ''' _ Public Property LenVal() As OFFSETVALII() Get Return Me.lenValField End Get Set Me.lenValField = value Me.RaisePropertyChanged("LenVal") End Set End Property ''' _ Public Property DiaVal() As OFFSETVALII() Get Return Me.diaValField End Get Set Me.diaValField = value Me.RaisePropertyChanged("DiaVal") End Set End Property ''' _ Public Property Orient() As UShort Get Return Me.orientField End Get Set Me.orientField = value Me.RaisePropertyChanged("Orient") End Set End Property ''' _ Public Property ExternType() As UShort Get Return Me.externTypeField End Get Set Me.externTypeField = value Me.RaisePropertyChanged("ExternType") End Set End Property ''' _ Public Property ExternInd() As UShort Get Return Me.externIndField End Get Set Me.externIndField = value Me.RaisePropertyChanged("ExternInd") End Set End Property ''' _ Public Property Duser() As Double() Get Return Me.duserField End Get Set Me.duserField = value Me.RaisePropertyChanged("Duser") End Set End Property ''' _ Public Property Suser() As Short() Get Return Me.suserField End Get Set Me.suserField = value Me.RaisePropertyChanged("Suser") End Set End Property ''' _ Public Property Descr() As UShort() Get Return Me.descrField End Get Set Me.descrField = value Me.RaisePropertyChanged("Descr") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class TOOLTABLEII Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private toolNameField As String Private statusField As UShort Private lifeTypeField As UShort Private maxLifeField As Double Private remLifeField As Double Private offsNumField As UShort Private externTypeField As UShort Private externIndField As UShort Private duserField() As Double Private suserField() As Short Private descrField() As UShort ''' _ Public Property ToolName() As String Get Return Me.toolNameField End Get Set Me.toolNameField = value Me.RaisePropertyChanged("ToolName") End Set End Property ''' _ Public Property Status() As UShort Get Return Me.statusField End Get Set Me.statusField = value Me.RaisePropertyChanged("Status") End Set End Property ''' _ Public Property LifeType() As UShort Get Return Me.lifeTypeField End Get Set Me.lifeTypeField = value Me.RaisePropertyChanged("LifeType") End Set End Property ''' _ Public Property MaxLife() As Double Get Return Me.maxLifeField End Get Set Me.maxLifeField = value Me.RaisePropertyChanged("MaxLife") End Set End Property ''' _ Public Property RemLife() As Double Get Return Me.remLifeField End Get Set Me.remLifeField = value Me.RaisePropertyChanged("RemLife") End Set End Property ''' _ Public Property OffsNum() As UShort Get Return Me.offsNumField End Get Set Me.offsNumField = value Me.RaisePropertyChanged("OffsNum") End Set End Property ''' _ Public Property ExternType() As UShort Get Return Me.externTypeField End Get Set Me.externTypeField = value Me.RaisePropertyChanged("ExternType") End Set End Property ''' _ Public Property ExternInd() As UShort Get Return Me.externIndField End Get Set Me.externIndField = value Me.RaisePropertyChanged("ExternInd") End Set End Property ''' _ Public Property Duser() As Double() Get Return Me.duserField End Get Set Me.duserField = value Me.RaisePropertyChanged("Duser") End Set End Property ''' _ Public Property Suser() As Short() Get Return Me.suserField End Get Set Me.suserField = value Me.RaisePropertyChanged("Suser") End Set End Property ''' _ Public Property Descr() As UShort() Get Return Me.descrField End Get Set Me.descrField = value Me.RaisePropertyChanged("Descr") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class ORIGINTABLEII Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private axisValField() As Double Private externTypeField As UShort Private externIndField As UShort Private descrField() As UShort ''' _ Public Property AxisVal() As Double() Get Return Me.axisValField End Get Set Me.axisValField = value Me.RaisePropertyChanged("AxisVal") End Set End Property ''' _ Public Property ExternType() As UShort Get Return Me.externTypeField End Get Set Me.externTypeField = value Me.RaisePropertyChanged("ExternType") End Set End Property ''' _ Public Property ExternInd() As UShort Get Return Me.externIndField End Get Set Me.externIndField = value Me.RaisePropertyChanged("ExternInd") End Set End Property ''' _ Public Property Descr() As UShort() Get Return Me.descrField End Get Set Me.descrField = value Me.RaisePropertyChanged("Descr") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class BootPhaseEnquiryR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private phaseField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property Phase() As UShort Get Return Me.phaseField End Get Set Me.phaseField = value Me.RaisePropertyChanged("Phase") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class BootPhaseEnquiryRequest _ Public BootPhaseEnquiry As OpenControl.BootPhaseEnquiry Public Sub New() MyBase.New End Sub Public Sub New(ByVal BootPhaseEnquiry As OpenControl.BootPhaseEnquiry) MyBase.New Me.BootPhaseEnquiry = BootPhaseEnquiry End Sub End Class _ Partial Public Class BootPhaseEnquiryResponse _ Public BootPhaseEnquiryR As OpenControl.BootPhaseEnquiryR Public Sub New() MyBase.New End Sub Public Sub New(ByVal BootPhaseEnquiryR As OpenControl.BootPhaseEnquiryR) MyBase.New Me.BootPhaseEnquiryR = BootPhaseEnquiryR End Sub End Class ''' _ Partial Public Class BootReboot Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class BootRebootR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class BootRebootRequest _ Public BootReboot As OpenControl.BootReboot Public Sub New() MyBase.New End Sub Public Sub New(ByVal BootReboot As OpenControl.BootReboot) MyBase.New Me.BootReboot = BootReboot End Sub End Class _ Partial Public Class BootRebootResponse _ Public BootRebootR As OpenControl.BootRebootR Public Sub New() MyBase.New End Sub Public Sub New(ByVal BootRebootR As OpenControl.BootRebootR) MyBase.New Me.BootRebootR = BootRebootR End Sub End Class ''' _ Partial Public Class BootShutDown Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class BootShutDownR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class BootShutDownRequest _ Public BootShutDown As OpenControl.BootShutDown Public Sub New() MyBase.New End Sub Public Sub New(ByVal BootShutDown As OpenControl.BootShutDown) MyBase.New Me.BootShutDown = BootShutDown End Sub End Class _ Partial Public Class BootShutDownResponse _ Public BootShutDownR As OpenControl.BootShutDownR Public Sub New() MyBase.New End Sub Public Sub New(ByVal BootShutDownR As OpenControl.BootShutDownR) MyBase.New Me.BootShutDownR = BootShutDownR End Sub End Class ''' _ Partial Public Class BootMode Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private modeField As UShort ''' _ Public Property Mode() As UShort Get Return Me.modeField End Get Set Me.modeField = value Me.RaisePropertyChanged("Mode") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class BootModeR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class BootModeRequest _ Public BootMode As OpenControl.BootMode Public Sub New() MyBase.New End Sub Public Sub New(ByVal BootMode As OpenControl.BootMode) MyBase.New Me.BootMode = BootMode End Sub End Class _ Partial Public Class BootModeResponse _ Public BootModeR As OpenControl.BootModeR Public Sub New() MyBase.New End Sub Public Sub New(ByVal BootModeR As OpenControl.BootModeR) MyBase.New Me.BootModeR = BootModeR End Sub End Class ''' _ Partial Public Class GetHWKey Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class GetHWKeyR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private hwKeyField() As Byte Private securLevelField() As Byte Private releaseField As String Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property HwKey() As Byte() Get Return Me.hwKeyField End Get Set Me.hwKeyField = value Me.RaisePropertyChanged("HwKey") End Set End Property ''' _ Public Property SecurLevel() As Byte() Get Return Me.securLevelField End Get Set Me.securLevelField = value Me.RaisePropertyChanged("SecurLevel") End Set End Property ''' _ Public Property Release() As String Get Return Me.releaseField End Get Set Me.releaseField = value Me.RaisePropertyChanged("Release") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class GetHWKeyRequest _ Public GetHWKey As OpenControl.GetHWKey Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetHWKey As OpenControl.GetHWKey) MyBase.New Me.GetHWKey = GetHWKey End Sub End Class _ Partial Public Class GetHWKeyResponse _ Public GetHWKeyR As OpenControl.GetHWKeyR Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetHWKeyR As OpenControl.GetHWKeyR) MyBase.New Me.GetHWKeyR = GetHWKeyR End Sub End Class ''' _ Partial Public Class ReadVarWord Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private codeField As UShort Private processField As UShort Private indexField As UShort Private numVarField As UShort ''' _ Public Property Code() As UShort Get Return Me.codeField End Get Set Me.codeField = value Me.RaisePropertyChanged("Code") End Set End Property ''' _ Public Property Process() As UShort Get Return Me.processField End Get Set Me.processField = value Me.RaisePropertyChanged("Process") End Set End Property ''' _ Public Property Index() As UShort Get Return Me.indexField End Get Set Me.indexField = value Me.RaisePropertyChanged("Index") End Set End Property ''' _ Public Property NumVar() As UShort Get Return Me.numVarField End Get Set Me.numVarField = value Me.RaisePropertyChanged("NumVar") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class ReadVarWordR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private valueField() As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property Value() As UShort() Get Return Me.valueField End Get Set Me.valueField = value Me.RaisePropertyChanged("Value") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class ReadVarWordRequest _ Public ReadVarWord As OpenControl.ReadVarWord Public Sub New() MyBase.New End Sub Public Sub New(ByVal ReadVarWord As OpenControl.ReadVarWord) MyBase.New Me.ReadVarWord = ReadVarWord End Sub End Class _ Partial Public Class ReadVarWordResponse _ Public ReadVarWordR As OpenControl.ReadVarWordR Public Sub New() MyBase.New End Sub Public Sub New(ByVal ReadVarWordR As OpenControl.ReadVarWordR) MyBase.New Me.ReadVarWordR = ReadVarWordR End Sub End Class ''' _ Partial Public Class ReadVarDouble Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private codeField As UShort Private processField As UShort Private indexField As UShort Private numVarField As UShort ''' _ Public Property Code() As UShort Get Return Me.codeField End Get Set Me.codeField = value Me.RaisePropertyChanged("Code") End Set End Property ''' _ Public Property Process() As UShort Get Return Me.processField End Get Set Me.processField = value Me.RaisePropertyChanged("Process") End Set End Property ''' _ Public Property Index() As UShort Get Return Me.indexField End Get Set Me.indexField = value Me.RaisePropertyChanged("Index") End Set End Property ''' _ Public Property NumVar() As UShort Get Return Me.numVarField End Get Set Me.numVarField = value Me.RaisePropertyChanged("NumVar") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class ReadVarDoubleR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private valueField() As Double Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property Value() As Double() Get Return Me.valueField End Get Set Me.valueField = value Me.RaisePropertyChanged("Value") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class ReadVarDoubleRequest _ Public ReadVarDouble As OpenControl.ReadVarDouble Public Sub New() MyBase.New End Sub Public Sub New(ByVal ReadVarDouble As OpenControl.ReadVarDouble) MyBase.New Me.ReadVarDouble = ReadVarDouble End Sub End Class _ Partial Public Class ReadVarDoubleResponse _ Public ReadVarDoubleR As OpenControl.ReadVarDoubleR Public Sub New() MyBase.New End Sub Public Sub New(ByVal ReadVarDoubleR As OpenControl.ReadVarDoubleR) MyBase.New Me.ReadVarDoubleR = ReadVarDoubleR End Sub End Class ''' _ Partial Public Class WriteVarWord Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private codeField As UShort Private processField As UShort Private indexField As UShort Private numVarField As UShort Private valueField() As UShort ''' _ Public Property Code() As UShort Get Return Me.codeField End Get Set Me.codeField = value Me.RaisePropertyChanged("Code") End Set End Property ''' _ Public Property Process() As UShort Get Return Me.processField End Get Set Me.processField = value Me.RaisePropertyChanged("Process") End Set End Property ''' _ Public Property Index() As UShort Get Return Me.indexField End Get Set Me.indexField = value Me.RaisePropertyChanged("Index") End Set End Property ''' _ Public Property NumVar() As UShort Get Return Me.numVarField End Get Set Me.numVarField = value Me.RaisePropertyChanged("NumVar") End Set End Property ''' _ Public Property Value() As UShort() Get Return Me.valueField End Get Set Me.valueField = value Me.RaisePropertyChanged("Value") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class WriteVarWordR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class WriteVarWordRequest _ Public WriteVarWord As OpenControl.WriteVarWord Public Sub New() MyBase.New End Sub Public Sub New(ByVal WriteVarWord As OpenControl.WriteVarWord) MyBase.New Me.WriteVarWord = WriteVarWord End Sub End Class _ Partial Public Class WriteVarWordResponse _ Public WriteVarWordR As OpenControl.WriteVarWordR Public Sub New() MyBase.New End Sub Public Sub New(ByVal WriteVarWordR As OpenControl.WriteVarWordR) MyBase.New Me.WriteVarWordR = WriteVarWordR End Sub End Class ''' _ Partial Public Class WriteVarWordBit Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private codeField As UShort Private processField As UShort Private indexField As UShort Private bitIndexField As UShort Private bitValueField As UShort ''' _ Public Property Code() As UShort Get Return Me.codeField End Get Set Me.codeField = value Me.RaisePropertyChanged("Code") End Set End Property ''' _ Public Property Process() As UShort Get Return Me.processField End Get Set Me.processField = value Me.RaisePropertyChanged("Process") End Set End Property ''' _ Public Property Index() As UShort Get Return Me.indexField End Get Set Me.indexField = value Me.RaisePropertyChanged("Index") End Set End Property ''' _ Public Property BitIndex() As UShort Get Return Me.bitIndexField End Get Set Me.bitIndexField = value Me.RaisePropertyChanged("BitIndex") End Set End Property ''' _ Public Property BitValue() As UShort Get Return Me.bitValueField End Get Set Me.bitValueField = value Me.RaisePropertyChanged("BitValue") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class WriteVarWordBitR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class WriteVarWordBitRequest _ Public WriteVarWordBit As OpenControl.WriteVarWordBit Public Sub New() MyBase.New End Sub Public Sub New(ByVal WriteVarWordBit As OpenControl.WriteVarWordBit) MyBase.New Me.WriteVarWordBit = WriteVarWordBit End Sub End Class _ Partial Public Class WriteVarWordBitResponse _ Public WriteVarWordBitR As OpenControl.WriteVarWordBitR Public Sub New() MyBase.New End Sub Public Sub New(ByVal WriteVarWordBitR As OpenControl.WriteVarWordBitR) MyBase.New Me.WriteVarWordBitR = WriteVarWordBitR End Sub End Class ''' _ Partial Public Class WriteVarDouble Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private codeField As UShort Private processField As UShort Private indexField As UShort Private numVarField As UShort Private valueField() As Double ''' _ Public Property Code() As UShort Get Return Me.codeField End Get Set Me.codeField = value Me.RaisePropertyChanged("Code") End Set End Property ''' _ Public Property Process() As UShort Get Return Me.processField End Get Set Me.processField = value Me.RaisePropertyChanged("Process") End Set End Property ''' _ Public Property Index() As UShort Get Return Me.indexField End Get Set Me.indexField = value Me.RaisePropertyChanged("Index") End Set End Property ''' _ Public Property NumVar() As UShort Get Return Me.numVarField End Get Set Me.numVarField = value Me.RaisePropertyChanged("NumVar") End Set End Property ''' _ Public Property Value() As Double() Get Return Me.valueField End Get Set Me.valueField = value Me.RaisePropertyChanged("Value") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class WriteVarDoubleR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class WriteVarDoubleRequest _ Public WriteVarDouble As OpenControl.WriteVarDouble Public Sub New() MyBase.New End Sub Public Sub New(ByVal WriteVarDouble As OpenControl.WriteVarDouble) MyBase.New Me.WriteVarDouble = WriteVarDouble End Sub End Class _ Partial Public Class WriteVarDoubleResponse _ Public WriteVarDoubleR As OpenControl.WriteVarDoubleR Public Sub New() MyBase.New End Sub Public Sub New(ByVal WriteVarDoubleR As OpenControl.WriteVarDoubleR) MyBase.New Me.WriteVarDoubleR = WriteVarDoubleR End Sub End Class ''' _ Partial Public Class ReadVarText Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private codeField As UShort Private processField As UShort Private indexField As UShort Private sizeField As UShort ''' _ Public Property Code() As UShort Get Return Me.codeField End Get Set Me.codeField = value Me.RaisePropertyChanged("Code") End Set End Property ''' _ Public Property Process() As UShort Get Return Me.processField End Get Set Me.processField = value Me.RaisePropertyChanged("Process") End Set End Property ''' _ Public Property Index() As UShort Get Return Me.indexField End Get Set Me.indexField = value Me.RaisePropertyChanged("Index") End Set End Property ''' _ Public Property Size() As UShort Get Return Me.sizeField End Get Set Me.sizeField = value Me.RaisePropertyChanged("Size") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class ReadVarTextR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private textField As String Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property Text() As String Get Return Me.textField End Get Set Me.textField = value Me.RaisePropertyChanged("Text") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class ReadVarTextRequest _ Public ReadVarText As OpenControl.ReadVarText Public Sub New() MyBase.New End Sub Public Sub New(ByVal ReadVarText As OpenControl.ReadVarText) MyBase.New Me.ReadVarText = ReadVarText End Sub End Class _ Partial Public Class ReadVarTextResponse _ Public ReadVarTextR As OpenControl.ReadVarTextR Public Sub New() MyBase.New End Sub Public Sub New(ByVal ReadVarTextR As OpenControl.ReadVarTextR) MyBase.New Me.ReadVarTextR = ReadVarTextR End Sub End Class ''' _ Partial Public Class WriteVarText Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private codeField As UShort Private processField As UShort Private indexField As UShort Private lenField As UShort Private textField As String ''' _ Public Property Code() As UShort Get Return Me.codeField End Get Set Me.codeField = value Me.RaisePropertyChanged("Code") End Set End Property ''' _ Public Property Process() As UShort Get Return Me.processField End Get Set Me.processField = value Me.RaisePropertyChanged("Process") End Set End Property ''' _ Public Property Index() As UShort Get Return Me.indexField End Get Set Me.indexField = value Me.RaisePropertyChanged("Index") End Set End Property ''' _ Public Property Len() As UShort Get Return Me.lenField End Get Set Me.lenField = value Me.RaisePropertyChanged("Len") End Set End Property ''' _ Public Property Text() As String Get Return Me.textField End Get Set Me.textField = value Me.RaisePropertyChanged("Text") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class WriteVarTextR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class WriteVarTextRequest _ Public WriteVarText As OpenControl.WriteVarText Public Sub New() MyBase.New End Sub Public Sub New(ByVal WriteVarText As OpenControl.WriteVarText) MyBase.New Me.WriteVarText = WriteVarText End Sub End Class _ Partial Public Class WriteVarTextResponse _ Public WriteVarTextR As OpenControl.WriteVarTextR Public Sub New() MyBase.New End Sub Public Sub New(ByVal WriteVarTextR As OpenControl.WriteVarTextR) MyBase.New Me.WriteVarTextR = WriteVarTextR End Sub End Class ''' _ Partial Public Class ReadWarningMsg Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class ReadWarningMsgR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private warningMsgField As String Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property WarningMsg() As String Get Return Me.warningMsgField End Get Set Me.warningMsgField = value Me.RaisePropertyChanged("WarningMsg") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class ReadWarningMsgRequest _ Public ReadWarningMsg As OpenControl.ReadWarningMsg Public Sub New() MyBase.New End Sub Public Sub New(ByVal ReadWarningMsg As OpenControl.ReadWarningMsg) MyBase.New Me.ReadWarningMsg = ReadWarningMsg End Sub End Class _ Partial Public Class ReadWarningMsgResponse _ Public ReadWarningMsgR As OpenControl.ReadWarningMsgR Public Sub New() MyBase.New End Sub Public Sub New(ByVal ReadWarningMsgR As OpenControl.ReadWarningMsgR) MyBase.New Me.ReadWarningMsgR = ReadWarningMsgR End Sub End Class ''' _ Partial Public Class ResetSingleTableII Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private tableNumField As UShort ''' _ Public Property TableNum() As UShort Get Return Me.tableNumField End Get Set Me.tableNumField = value Me.RaisePropertyChanged("TableNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class ResetSingleTableIIR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class ResetSingleTableIIRequest _ Public ResetSingleTableII As OpenControl.ResetSingleTableII Public Sub New() MyBase.New End Sub Public Sub New(ByVal ResetSingleTableII As OpenControl.ResetSingleTableII) MyBase.New Me.ResetSingleTableII = ResetSingleTableII End Sub End Class _ Partial Public Class ResetSingleTableIIResponse _ Public ResetSingleTableIIR As OpenControl.ResetSingleTableIIR Public Sub New() MyBase.New End Sub Public Sub New(ByVal ResetSingleTableIIR As OpenControl.ResetSingleTableIIR) MyBase.New Me.ResetSingleTableIIR = ResetSingleTableIIR End Sub End Class ''' _ Partial Public Class LockTableII Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private tableNumField As UShort ''' _ Public Property TableNum() As UShort Get Return Me.tableNumField End Get Set Me.tableNumField = value Me.RaisePropertyChanged("TableNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class LockTableIIR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class LockTableIIRequest _ Public LockTableII As OpenControl.LockTableII Public Sub New() MyBase.New End Sub Public Sub New(ByVal LockTableII As OpenControl.LockTableII) MyBase.New Me.LockTableII = LockTableII End Sub End Class _ Partial Public Class LockTableIIResponse _ Public LockTableIIR As OpenControl.LockTableIIR Public Sub New() MyBase.New End Sub Public Sub New(ByVal LockTableIIR As OpenControl.LockTableIIR) MyBase.New Me.LockTableIIR = LockTableIIR End Sub End Class ''' _ Partial Public Class UnLockTableII Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private tableNumField As UShort ''' _ Public Property TableNum() As UShort Get Return Me.tableNumField End Get Set Me.tableNumField = value Me.RaisePropertyChanged("TableNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class UnLockTableIIR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class UnLockTableIIRequest _ Public UnLockTableII As OpenControl.UnLockTableII Public Sub New() MyBase.New End Sub Public Sub New(ByVal UnLockTableII As OpenControl.UnLockTableII) MyBase.New Me.UnLockTableII = UnLockTableII End Sub End Class _ Partial Public Class UnLockTableIIResponse _ Public UnLockTableIIR As OpenControl.UnLockTableIIR Public Sub New() MyBase.New End Sub Public Sub New(ByVal UnLockTableIIR As OpenControl.UnLockTableIIR) MyBase.New Me.UnLockTableIIR = UnLockTableIIR End Sub End Class ''' _ Partial Public Class GetOriginTabRecordII Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private recordNumField As UInteger ''' _ Public Property RecordNum() As UInteger Get Return Me.recordNumField End Get Set Me.recordNumField = value Me.RaisePropertyChanged("RecordNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class GetOriginTabRecordIIR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private recordBuffField As ORIGINTABLEII Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property RecordBuff() As ORIGINTABLEII Get Return Me.recordBuffField End Get Set Me.recordBuffField = value Me.RaisePropertyChanged("RecordBuff") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class GetOriginTabRecordIIRequest _ Public GetOriginTabRecordII As OpenControl.GetOriginTabRecordII Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetOriginTabRecordII As OpenControl.GetOriginTabRecordII) MyBase.New Me.GetOriginTabRecordII = GetOriginTabRecordII End Sub End Class _ Partial Public Class GetOriginTabRecordIIResponse _ Public GetOriginTabRecordIIR As OpenControl.GetOriginTabRecordIIR Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetOriginTabRecordIIR As OpenControl.GetOriginTabRecordIIR) MyBase.New Me.GetOriginTabRecordIIR = GetOriginTabRecordIIR End Sub End Class ''' _ Partial Public Class SetOriginTabRecordII Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private recordNumField As UInteger Private recordBuffField As ORIGINTABLEII ''' _ Public Property RecordNum() As UInteger Get Return Me.recordNumField End Get Set Me.recordNumField = value Me.RaisePropertyChanged("RecordNum") End Set End Property ''' _ Public Property RecordBuff() As ORIGINTABLEII Get Return Me.recordBuffField End Get Set Me.recordBuffField = value Me.RaisePropertyChanged("RecordBuff") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class SetOriginTabRecordIIR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class SetOriginTabRecordIIRequest _ Public SetOriginTabRecordII As OpenControl.SetOriginTabRecordII Public Sub New() MyBase.New End Sub Public Sub New(ByVal SetOriginTabRecordII As OpenControl.SetOriginTabRecordII) MyBase.New Me.SetOriginTabRecordII = SetOriginTabRecordII End Sub End Class _ Partial Public Class SetOriginTabRecordIIResponse _ Public SetOriginTabRecordIIR As OpenControl.SetOriginTabRecordIIR Public Sub New() MyBase.New End Sub Public Sub New(ByVal SetOriginTabRecordIIR As OpenControl.SetOriginTabRecordIIR) MyBase.New Me.SetOriginTabRecordIIR = SetOriginTabRecordIIR End Sub End Class ''' _ Partial Public Class GetToolTabRecordII Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private recordNumField As UInteger ''' _ Public Property RecordNum() As UInteger Get Return Me.recordNumField End Get Set Me.recordNumField = value Me.RaisePropertyChanged("RecordNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class GetToolTabRecordIIR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private recordBuffField As TOOLTABLEII Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property RecordBuff() As TOOLTABLEII Get Return Me.recordBuffField End Get Set Me.recordBuffField = value Me.RaisePropertyChanged("RecordBuff") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class GetToolTabRecordIIRequest _ Public GetToolTabRecordII As OpenControl.GetToolTabRecordII Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetToolTabRecordII As OpenControl.GetToolTabRecordII) MyBase.New Me.GetToolTabRecordII = GetToolTabRecordII End Sub End Class _ Partial Public Class GetToolTabRecordIIResponse _ Public GetToolTabRecordIIR As OpenControl.GetToolTabRecordIIR Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetToolTabRecordIIR As OpenControl.GetToolTabRecordIIR) MyBase.New Me.GetToolTabRecordIIR = GetToolTabRecordIIR End Sub End Class ''' _ Partial Public Class SetToolTabRecordII Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private recordNumField As UInteger Private recordBuffField As TOOLTABLEII ''' _ Public Property RecordNum() As UInteger Get Return Me.recordNumField End Get Set Me.recordNumField = value Me.RaisePropertyChanged("RecordNum") End Set End Property ''' _ Public Property RecordBuff() As TOOLTABLEII Get Return Me.recordBuffField End Get Set Me.recordBuffField = value Me.RaisePropertyChanged("RecordBuff") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class SetToolTabRecordIIR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class SetToolTabRecordIIRequest _ Public SetToolTabRecordII As OpenControl.SetToolTabRecordII Public Sub New() MyBase.New End Sub Public Sub New(ByVal SetToolTabRecordII As OpenControl.SetToolTabRecordII) MyBase.New Me.SetToolTabRecordII = SetToolTabRecordII End Sub End Class _ Partial Public Class SetToolTabRecordIIResponse _ Public SetToolTabRecordIIR As OpenControl.SetToolTabRecordIIR Public Sub New() MyBase.New End Sub Public Sub New(ByVal SetToolTabRecordIIR As OpenControl.SetToolTabRecordIIR) MyBase.New Me.SetToolTabRecordIIR = SetToolTabRecordIIR End Sub End Class ''' _ Partial Public Class GetOffsetTabRecordII Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private recordNumField As UInteger ''' _ Public Property RecordNum() As UInteger Get Return Me.recordNumField End Get Set Me.recordNumField = value Me.RaisePropertyChanged("RecordNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class GetOffsetTabRecordIIR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private recordBuffField As OFFSETTABLEII Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property RecordBuff() As OFFSETTABLEII Get Return Me.recordBuffField End Get Set Me.recordBuffField = value Me.RaisePropertyChanged("RecordBuff") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class GetOffsetTabRecordIIRequest _ Public GetOffsetTabRecordII As OpenControl.GetOffsetTabRecordII Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetOffsetTabRecordII As OpenControl.GetOffsetTabRecordII) MyBase.New Me.GetOffsetTabRecordII = GetOffsetTabRecordII End Sub End Class _ Partial Public Class GetOffsetTabRecordIIResponse _ Public GetOffsetTabRecordIIR As OpenControl.GetOffsetTabRecordIIR Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetOffsetTabRecordIIR As OpenControl.GetOffsetTabRecordIIR) MyBase.New Me.GetOffsetTabRecordIIR = GetOffsetTabRecordIIR End Sub End Class ''' _ Partial Public Class SetOffsetTabRecordII Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private recordNumField As UInteger Private recordBuffField As OFFSETTABLEII ''' _ Public Property RecordNum() As UInteger Get Return Me.recordNumField End Get Set Me.recordNumField = value Me.RaisePropertyChanged("RecordNum") End Set End Property ''' _ Public Property RecordBuff() As OFFSETTABLEII Get Return Me.recordBuffField End Get Set Me.recordBuffField = value Me.RaisePropertyChanged("RecordBuff") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class SetOffsetTabRecordIIR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class SetOffsetTabRecordIIRequest _ Public SetOffsetTabRecordII As OpenControl.SetOffsetTabRecordII Public Sub New() MyBase.New End Sub Public Sub New(ByVal SetOffsetTabRecordII As OpenControl.SetOffsetTabRecordII) MyBase.New Me.SetOffsetTabRecordII = SetOffsetTabRecordII End Sub End Class _ Partial Public Class SetOffsetTabRecordIIResponse _ Public SetOffsetTabRecordIIR As OpenControl.SetOffsetTabRecordIIR Public Sub New() MyBase.New End Sub Public Sub New(ByVal SetOffsetTabRecordIIR As OpenControl.SetOffsetTabRecordIIR) MyBase.New Me.SetOffsetTabRecordIIR = SetOffsetTabRecordIIR End Sub End Class ''' _ Partial Public Class GetUserTabRecordII Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private recordNumField As UInteger ''' _ Public Property RecordNum() As UInteger Get Return Me.recordNumField End Get Set Me.recordNumField = value Me.RaisePropertyChanged("RecordNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class GetUserTabRecordIIR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private recordBuffField As USERTABLEII Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property RecordBuff() As USERTABLEII Get Return Me.recordBuffField End Get Set Me.recordBuffField = value Me.RaisePropertyChanged("RecordBuff") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class GetUserTabRecordIIRequest _ Public GetUserTabRecordII As OpenControl.GetUserTabRecordII Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetUserTabRecordII As OpenControl.GetUserTabRecordII) MyBase.New Me.GetUserTabRecordII = GetUserTabRecordII End Sub End Class _ Partial Public Class GetUserTabRecordIIResponse _ Public GetUserTabRecordIIR As OpenControl.GetUserTabRecordIIR Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetUserTabRecordIIR As OpenControl.GetUserTabRecordIIR) MyBase.New Me.GetUserTabRecordIIR = GetUserTabRecordIIR End Sub End Class ''' _ Partial Public Class SetUserTabRecordII Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private recordNumField As UInteger Private recordBuffField As USERTABLEII ''' _ Public Property RecordNum() As UInteger Get Return Me.recordNumField End Get Set Me.recordNumField = value Me.RaisePropertyChanged("RecordNum") End Set End Property ''' _ Public Property RecordBuff() As USERTABLEII Get Return Me.recordBuffField End Get Set Me.recordBuffField = value Me.RaisePropertyChanged("RecordBuff") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class SetUserTabRecordIIR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class SetUserTabRecordIIRequest _ Public SetUserTabRecordII As OpenControl.SetUserTabRecordII Public Sub New() MyBase.New End Sub Public Sub New(ByVal SetUserTabRecordII As OpenControl.SetUserTabRecordII) MyBase.New Me.SetUserTabRecordII = SetUserTabRecordII End Sub End Class _ Partial Public Class SetUserTabRecordIIResponse _ Public SetUserTabRecordIIR As OpenControl.SetUserTabRecordIIR Public Sub New() MyBase.New End Sub Public Sub New(ByVal SetUserTabRecordIIR As OpenControl.SetUserTabRecordIIR) MyBase.New Me.SetUserTabRecordIIR = SetUserTabRecordIIR End Sub End Class ''' _ Partial Public Class SaveTables Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private localDirField As String ''' _ Public Property LocalDir() As String Get Return Me.localDirField End Get Set Me.localDirField = value Me.RaisePropertyChanged("LocalDir") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class SaveTablesR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class SaveTablesRequest _ Public SaveTables As OpenControl.SaveTables Public Sub New() MyBase.New End Sub Public Sub New(ByVal SaveTables As OpenControl.SaveTables) MyBase.New Me.SaveTables = SaveTables End Sub End Class _ Partial Public Class SaveTablesResponse _ Public SaveTablesR As OpenControl.SaveTablesR Public Sub New() MyBase.New End Sub Public Sub New(ByVal SaveTablesR As OpenControl.SaveTablesR) MyBase.New Me.SaveTablesR = SaveTablesR End Sub End Class ''' _ Partial Public Class RestoreSingleTable Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private localDirField As String Private tableTypeField As TABLETYPEII ''' _ Public Property LocalDir() As String Get Return Me.localDirField End Get Set Me.localDirField = value Me.RaisePropertyChanged("LocalDir") End Set End Property ''' _ Public Property TableType() As TABLETYPEII Get Return Me.tableTypeField End Get Set Me.tableTypeField = value Me.RaisePropertyChanged("TableType") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Public Enum TABLETYPEII ''' _ TabTypeTools ''' _ TabTypeOffsets ''' _ TabTypeOrigins ''' _ TabTypeUser End Enum ''' _ Partial Public Class RestoreSingleTableR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class RestoreSingleTableRequest _ Public RestoreSingleTable As OpenControl.RestoreSingleTable Public Sub New() MyBase.New End Sub Public Sub New(ByVal RestoreSingleTable As OpenControl.RestoreSingleTable) MyBase.New Me.RestoreSingleTable = RestoreSingleTable End Sub End Class _ Partial Public Class RestoreSingleTableResponse _ Public RestoreSingleTableR As OpenControl.RestoreSingleTableR Public Sub New() MyBase.New End Sub Public Sub New(ByVal RestoreSingleTableR As OpenControl.RestoreSingleTableR) MyBase.New Me.RestoreSingleTableR = RestoreSingleTableR End Sub End Class ''' _ Partial Public Class SaveSingleTable Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private localDirField As String Private tableTypeField As TABLETYPEII ''' _ Public Property LocalDir() As String Get Return Me.localDirField End Get Set Me.localDirField = value Me.RaisePropertyChanged("LocalDir") End Set End Property ''' _ Public Property TableType() As TABLETYPEII Get Return Me.tableTypeField End Get Set Me.tableTypeField = value Me.RaisePropertyChanged("TableType") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class SaveSingleTableR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class SaveSingleTableRequest _ Public SaveSingleTable As OpenControl.SaveSingleTable Public Sub New() MyBase.New End Sub Public Sub New(ByVal SaveSingleTable As OpenControl.SaveSingleTable) MyBase.New Me.SaveSingleTable = SaveSingleTable End Sub End Class _ Partial Public Class SaveSingleTableResponse _ Public SaveSingleTableR As OpenControl.SaveSingleTableR Public Sub New() MyBase.New End Sub Public Sub New(ByVal SaveSingleTableR As OpenControl.SaveSingleTableR) MyBase.New Me.SaveSingleTableR = SaveSingleTableR End Sub End Class ''' _ Partial Public Class SaveBackupMemory Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private fileNameField As String ''' _ Public Property FileName() As String Get Return Me.fileNameField End Get Set Me.fileNameField = value Me.RaisePropertyChanged("FileName") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class SaveBackupMemoryR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class SaveBackupMemoryRequest _ Public SaveBackupMemory As OpenControl.SaveBackupMemory Public Sub New() MyBase.New End Sub Public Sub New(ByVal SaveBackupMemory As OpenControl.SaveBackupMemory) MyBase.New Me.SaveBackupMemory = SaveBackupMemory End Sub End Class _ Partial Public Class SaveBackupMemoryResponse _ Public SaveBackupMemoryR As OpenControl.SaveBackupMemoryR Public Sub New() MyBase.New End Sub Public Sub New(ByVal SaveBackupMemoryR As OpenControl.SaveBackupMemoryR) MyBase.New Me.SaveBackupMemoryR = SaveBackupMemoryR End Sub End Class ''' _ Partial Public Class RestoreBackupMemory Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private fileNameField As String Private restoreMaskField As UInteger ''' _ Public Property FileName() As String Get Return Me.fileNameField End Get Set Me.fileNameField = value Me.RaisePropertyChanged("FileName") End Set End Property ''' _ Public Property RestoreMask() As UInteger Get Return Me.restoreMaskField End Get Set Me.restoreMaskField = value Me.RaisePropertyChanged("RestoreMask") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class RestoreBackupMemoryR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class RestoreBackupMemoryRequest _ Public RestoreBackupMemory As OpenControl.RestoreBackupMemory Public Sub New() MyBase.New End Sub Public Sub New(ByVal RestoreBackupMemory As OpenControl.RestoreBackupMemory) MyBase.New Me.RestoreBackupMemory = RestoreBackupMemory End Sub End Class _ Partial Public Class RestoreBackupMemoryResponse _ Public RestoreBackupMemoryR As OpenControl.RestoreBackupMemoryR Public Sub New() MyBase.New End Sub Public Sub New(ByVal RestoreBackupMemoryR As OpenControl.RestoreBackupMemoryR) MyBase.New Me.RestoreBackupMemoryR = RestoreBackupMemoryR End Sub End Class ''' _ Partial Public Class Cycle Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private procNumField As UShort Private cmdField As UShort ''' _ Public Property ProcNum() As UShort Get Return Me.procNumField End Get Set Me.procNumField = value Me.RaisePropertyChanged("ProcNum") End Set End Property ''' _ Public Property Cmd() As UShort Get Return Me.cmdField End Get Set Me.cmdField = value Me.RaisePropertyChanged("Cmd") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class CycleR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class CycleRequest _ Public Cycle As OpenControl.Cycle Public Sub New() MyBase.New End Sub Public Sub New(ByVal Cycle As OpenControl.Cycle) MyBase.New Me.Cycle = Cycle End Sub End Class _ Partial Public Class CycleResponse _ Public CycleR As OpenControl.CycleR Public Sub New() MyBase.New End Sub Public Sub New(ByVal CycleR As OpenControl.CycleR) MyBase.New Me.CycleR = CycleR End Sub End Class ''' _ Partial Public Class SyncroCycle Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private procNumField As UShort ''' _ Public Property ProcNum() As UShort Get Return Me.procNumField End Get Set Me.procNumField = value Me.RaisePropertyChanged("ProcNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class SyncroCycleR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class SyncroCycleRequest _ Public SyncroCycle As OpenControl.SyncroCycle Public Sub New() MyBase.New End Sub Public Sub New(ByVal SyncroCycle As OpenControl.SyncroCycle) MyBase.New Me.SyncroCycle = SyncroCycle End Sub End Class _ Partial Public Class SyncroCycleResponse _ Public SyncroCycleR As OpenControl.SyncroCycleR Public Sub New() MyBase.New End Sub Public Sub New(ByVal SyncroCycleR As OpenControl.SyncroCycleR) MyBase.New Me.SyncroCycleR = SyncroCycleR End Sub End Class ''' _ Partial Public Class Reset Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private procNumField As UShort ''' _ Public Property ProcNum() As UShort Get Return Me.procNumField End Get Set Me.procNumField = value Me.RaisePropertyChanged("ProcNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class ResetR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class ResetRequest _ Public Reset As OpenControl.Reset Public Sub New() MyBase.New End Sub Public Sub New(ByVal Reset As OpenControl.Reset) MyBase.New Me.Reset = Reset End Sub End Class _ Partial Public Class ResetResponse _ Public ResetR As OpenControl.ResetR Public Sub New() MyBase.New End Sub Public Sub New(ByVal ResetR As OpenControl.ResetR) MyBase.New Me.ResetR = ResetR End Sub End Class ''' _ Partial Public Class Hold Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private procNumField As UShort Private cmdField As UShort ''' _ Public Property ProcNum() As UShort Get Return Me.procNumField End Get Set Me.procNumField = value Me.RaisePropertyChanged("ProcNum") End Set End Property ''' _ Public Property Cmd() As UShort Get Return Me.cmdField End Get Set Me.cmdField = value Me.RaisePropertyChanged("Cmd") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class HoldR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class HoldRequest _ Public Hold As OpenControl.Hold Public Sub New() MyBase.New End Sub Public Sub New(ByVal Hold As OpenControl.Hold) MyBase.New Me.Hold = Hold End Sub End Class _ Partial Public Class HoldResponse _ Public HoldR As OpenControl.HoldR Public Sub New() MyBase.New End Sub Public Sub New(ByVal HoldR As OpenControl.HoldR) MyBase.New Me.HoldR = HoldR End Sub End Class ''' _ Partial Public Class SetFeedManOver Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private procNumField As UShort Private feedManOverField As UShort Private directionField As UShort ''' _ Public Property ProcNum() As UShort Get Return Me.procNumField End Get Set Me.procNumField = value Me.RaisePropertyChanged("ProcNum") End Set End Property ''' _ Public Property FeedManOver() As UShort Get Return Me.feedManOverField End Get Set Me.feedManOverField = value Me.RaisePropertyChanged("FeedManOver") End Set End Property ''' _ Public Property Direction() As UShort Get Return Me.directionField End Get Set Me.directionField = value Me.RaisePropertyChanged("Direction") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class SetFeedManOverR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class SetFeedManOverRequest _ Public SetFeedManOver As OpenControl.SetFeedManOver Public Sub New() MyBase.New End Sub Public Sub New(ByVal SetFeedManOver As OpenControl.SetFeedManOver) MyBase.New Me.SetFeedManOver = SetFeedManOver End Sub End Class _ Partial Public Class SetFeedManOverResponse _ Public SetFeedManOverR As OpenControl.SetFeedManOverR Public Sub New() MyBase.New End Sub Public Sub New(ByVal SetFeedManOverR As OpenControl.SetFeedManOverR) MyBase.New Me.SetFeedManOverR = SetFeedManOverR End Sub End Class ''' _ Partial Public Class SetFeedRateOver Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private procNumField As UShort Private feedRateOverField As UShort ''' _ Public Property ProcNum() As UShort Get Return Me.procNumField End Get Set Me.procNumField = value Me.RaisePropertyChanged("ProcNum") End Set End Property ''' _ Public Property FeedRateOver() As UShort Get Return Me.feedRateOverField End Get Set Me.feedRateOverField = value Me.RaisePropertyChanged("FeedRateOver") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class SetFeedRateOverR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class SetFeedRateOverRequest _ Public SetFeedRateOver As OpenControl.SetFeedRateOver Public Sub New() MyBase.New End Sub Public Sub New(ByVal SetFeedRateOver As OpenControl.SetFeedRateOver) MyBase.New Me.SetFeedRateOver = SetFeedRateOver End Sub End Class _ Partial Public Class SetFeedRateOverResponse _ Public SetFeedRateOverR As OpenControl.SetFeedRateOverR Public Sub New() MyBase.New End Sub Public Sub New(ByVal SetFeedRateOverR As OpenControl.SetFeedRateOverR) MyBase.New Me.SetFeedRateOverR = SetFeedRateOverR End Sub End Class ''' _ Partial Public Class SetFeedRapidOver Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private procNumField As UShort Private feedRapidOverField As UShort ''' _ Public Property ProcNum() As UShort Get Return Me.procNumField End Get Set Me.procNumField = value Me.RaisePropertyChanged("ProcNum") End Set End Property ''' _ Public Property FeedRapidOver() As UShort Get Return Me.feedRapidOverField End Get Set Me.feedRapidOverField = value Me.RaisePropertyChanged("FeedRapidOver") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class SetFeedRapidOverR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class SetFeedRapidOverRequest _ Public SetFeedRapidOver As OpenControl.SetFeedRapidOver Public Sub New() MyBase.New End Sub Public Sub New(ByVal SetFeedRapidOver As OpenControl.SetFeedRapidOver) MyBase.New Me.SetFeedRapidOver = SetFeedRapidOver End Sub End Class _ Partial Public Class SetFeedRapidOverResponse _ Public SetFeedRapidOverR As OpenControl.SetFeedRapidOverR Public Sub New() MyBase.New End Sub Public Sub New(ByVal SetFeedRapidOverR As OpenControl.SetFeedRapidOverR) MyBase.New Me.SetFeedRapidOverR = SetFeedRapidOverR End Sub End Class ''' _ Partial Public Class SetSpeedRateOver Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private procNumField As UShort Private speedRateOverField As UShort ''' _ Public Property ProcNum() As UShort Get Return Me.procNumField End Get Set Me.procNumField = value Me.RaisePropertyChanged("ProcNum") End Set End Property ''' _ Public Property SpeedRateOver() As UShort Get Return Me.speedRateOverField End Get Set Me.speedRateOverField = value Me.RaisePropertyChanged("SpeedRateOver") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class SetSpeedRateOverR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class SetSpeedRateOverRequest _ Public SetSpeedRateOver As OpenControl.SetSpeedRateOver Public Sub New() MyBase.New End Sub Public Sub New(ByVal SetSpeedRateOver As OpenControl.SetSpeedRateOver) MyBase.New Me.SetSpeedRateOver = SetSpeedRateOver End Sub End Class _ Partial Public Class SetSpeedRateOverResponse _ Public SetSpeedRateOverR As OpenControl.SetSpeedRateOverR Public Sub New() MyBase.New End Sub Public Sub New(ByVal SetSpeedRateOverR As OpenControl.SetSpeedRateOverR) MyBase.New Me.SetSpeedRateOverR = SetSpeedRateOverR End Sub End Class ''' _ Partial Public Class SetManMovDirection Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private procNumField As UShort Private directionField As UShort ''' _ Public Property ProcNum() As UShort Get Return Me.procNumField End Get Set Me.procNumField = value Me.RaisePropertyChanged("ProcNum") End Set End Property ''' _ Public Property Direction() As UShort Get Return Me.directionField End Get Set Me.directionField = value Me.RaisePropertyChanged("Direction") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class SetManMovDirectionR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class SetManMovDirectionRequest _ Public SetManMovDirection As OpenControl.SetManMovDirection Public Sub New() MyBase.New End Sub Public Sub New(ByVal SetManMovDirection As OpenControl.SetManMovDirection) MyBase.New Me.SetManMovDirection = SetManMovDirection End Sub End Class _ Partial Public Class SetManMovDirectionResponse _ Public SetManMovDirectionR As OpenControl.SetManMovDirectionR Public Sub New() MyBase.New End Sub Public Sub New(ByVal SetManMovDirectionR As OpenControl.SetManMovDirectionR) MyBase.New Me.SetManMovDirectionR = SetManMovDirectionR End Sub End Class ''' _ Partial Public Class GetVarJOG Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private procNumField As UShort ''' _ Public Property ProcNum() As UShort Get Return Me.procNumField End Get Set Me.procNumField = value Me.RaisePropertyChanged("ProcNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class GetVarJOGR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private valueField As Double Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property Value() As Double Get Return Me.valueField End Get Set Me.valueField = value Me.RaisePropertyChanged("Value") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class GetVarJOGRequest _ Public GetVarJOG As OpenControl.GetVarJOG Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetVarJOG As OpenControl.GetVarJOG) MyBase.New Me.GetVarJOG = GetVarJOG End Sub End Class _ Partial Public Class GetVarJOGResponse _ Public GetVarJOGR As OpenControl.GetVarJOGR Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetVarJOGR As OpenControl.GetVarJOGR) MyBase.New Me.GetVarJOGR = GetVarJOGR End Sub End Class ''' _ Partial Public Class SetVarJOG Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private procNumField As UShort Private valueField As Double ''' _ Public Property ProcNum() As UShort Get Return Me.procNumField End Get Set Me.procNumField = value Me.RaisePropertyChanged("ProcNum") End Set End Property ''' _ Public Property Value() As Double Get Return Me.valueField End Get Set Me.valueField = value Me.RaisePropertyChanged("Value") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class SetVarJOGR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class SetVarJOGRequest _ Public SetVarJOG As OpenControl.SetVarJOG Public Sub New() MyBase.New End Sub Public Sub New(ByVal SetVarJOG As OpenControl.SetVarJOG) MyBase.New Me.SetVarJOG = SetVarJOG End Sub End Class _ Partial Public Class SetVarJOGResponse _ Public SetVarJOGR As OpenControl.SetVarJOGR Public Sub New() MyBase.New End Sub Public Sub New(ByVal SetVarJOGR As OpenControl.SetVarJOGR) MyBase.New Me.SetVarJOGR = SetVarJOGR End Sub End Class ''' _ Partial Public Class SetVarUAS Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private procNumField As UShort Private modeField As UShort ''' _ Public Property ProcNum() As UShort Get Return Me.procNumField End Get Set Me.procNumField = value Me.RaisePropertyChanged("ProcNum") End Set End Property ''' _ Public Property Mode() As UShort Get Return Me.modeField End Get Set Me.modeField = value Me.RaisePropertyChanged("Mode") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class SetVarUASR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class SetVarUASRequest _ Public SetVarUAS As OpenControl.SetVarUAS Public Sub New() MyBase.New End Sub Public Sub New(ByVal SetVarUAS As OpenControl.SetVarUAS) MyBase.New Me.SetVarUAS = SetVarUAS End Sub End Class _ Partial Public Class SetVarUASResponse _ Public SetVarUASR As OpenControl.SetVarUASR Public Sub New() MyBase.New End Sub Public Sub New(ByVal SetVarUASR As OpenControl.SetVarUASR) MyBase.New Me.SetVarUASR = SetVarUASR End Sub End Class ''' _ Partial Public Class GetVarRCM Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private procNumField As UShort ''' _ Public Property ProcNum() As UShort Get Return Me.procNumField End Get Set Me.procNumField = value Me.RaisePropertyChanged("ProcNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class GetVarRCMR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private valueField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property Value() As UShort Get Return Me.valueField End Get Set Me.valueField = value Me.RaisePropertyChanged("Value") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class GetVarRCMRequest _ Public GetVarRCM As OpenControl.GetVarRCM Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetVarRCM As OpenControl.GetVarRCM) MyBase.New Me.GetVarRCM = GetVarRCM End Sub End Class _ Partial Public Class GetVarRCMResponse _ Public GetVarRCMR As OpenControl.GetVarRCMR Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetVarRCMR As OpenControl.GetVarRCMR) MyBase.New Me.GetVarRCMR = GetVarRCMR End Sub End Class ''' _ Partial Public Class SetVarRCM Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private procNumField As UShort Private modeField As UShort ''' _ Public Property ProcNum() As UShort Get Return Me.procNumField End Get Set Me.procNumField = value Me.RaisePropertyChanged("ProcNum") End Set End Property ''' _ Public Property Mode() As UShort Get Return Me.modeField End Get Set Me.modeField = value Me.RaisePropertyChanged("Mode") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class SetVarRCMR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class SetVarRCMRequest _ Public SetVarRCM As OpenControl.SetVarRCM Public Sub New() MyBase.New End Sub Public Sub New(ByVal SetVarRCM As OpenControl.SetVarRCM) MyBase.New Me.SetVarRCM = SetVarRCM End Sub End Class _ Partial Public Class SetVarRCMResponse _ Public SetVarRCMR As OpenControl.SetVarRCMR Public Sub New() MyBase.New End Sub Public Sub New(ByVal SetVarRCMR As OpenControl.SetVarRCMR) MyBase.New Me.SetVarRCMR = SetVarRCMR End Sub End Class ''' _ Partial Public Class GetProcVarWord Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private procNumField As UShort Private varTypeField As PROCWORDVARTYPE ''' _ Public Property ProcNum() As UShort Get Return Me.procNumField End Get Set Me.procNumField = value Me.RaisePropertyChanged("ProcNum") End Set End Property ''' _ Public Property VarType() As PROCWORDVARTYPE Get Return Me.varTypeField End Get Set Me.varTypeField = value Me.RaisePropertyChanged("VarType") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Public Enum PROCWORDVARTYPE ''' _ PROCWORDVARRCM ''' _ PROCWORDVARARM ''' _ PROCWORDVARDPS ''' _ PROCWORDVARRAP ''' _ PROCWORDVARTRP ''' _ PROCWORDVARVFF ''' _ PROCWORDVARUVR ''' _ PROCWORDVARDLA ''' _ PROCWORDVARMBR ''' _ PROCWORDVARURL ''' _ PROCWORDVARDSB ''' _ PROCWORDVARUSO ''' _ PROCWORDVARERR ''' _ PROCWORDVARHMP ''' _ PROCWORDVARUAS ''' _ PROCWORDVARMBA ''' _ PROCWORDVARREM End Enum ''' _ Partial Public Class GetProcVarWordR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private valueField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property Value() As UShort Get Return Me.valueField End Get Set Me.valueField = value Me.RaisePropertyChanged("Value") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class GetProcVarWordRequest _ Public GetProcVarWord As OpenControl.GetProcVarWord Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetProcVarWord As OpenControl.GetProcVarWord) MyBase.New Me.GetProcVarWord = GetProcVarWord End Sub End Class _ Partial Public Class GetProcVarWordResponse _ Public GetProcVarWordR As OpenControl.GetProcVarWordR Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetProcVarWordR As OpenControl.GetProcVarWordR) MyBase.New Me.GetProcVarWordR = GetProcVarWordR End Sub End Class ''' _ Partial Public Class SetProcVarWord Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private procNumField As UShort Private varTypeField As PROCWORDVARTYPE Private valueField As UShort ''' _ Public Property ProcNum() As UShort Get Return Me.procNumField End Get Set Me.procNumField = value Me.RaisePropertyChanged("ProcNum") End Set End Property ''' _ Public Property VarType() As PROCWORDVARTYPE Get Return Me.varTypeField End Get Set Me.varTypeField = value Me.RaisePropertyChanged("VarType") End Set End Property ''' _ Public Property Value() As UShort Get Return Me.valueField End Get Set Me.valueField = value Me.RaisePropertyChanged("Value") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class SetProcVarWordR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class SetProcVarWordRequest _ Public SetProcVarWord As OpenControl.SetProcVarWord Public Sub New() MyBase.New End Sub Public Sub New(ByVal SetProcVarWord As OpenControl.SetProcVarWord) MyBase.New Me.SetProcVarWord = SetProcVarWord End Sub End Class _ Partial Public Class SetProcVarWordResponse _ Public SetProcVarWordR As OpenControl.SetProcVarWordR Public Sub New() MyBase.New End Sub Public Sub New(ByVal SetProcVarWordR As OpenControl.SetProcVarWordR) MyBase.New Me.SetProcVarWordR = SetProcVarWordR End Sub End Class ''' _ Partial Public Class GetProcVarDouble Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private procNumField As UShort Private varTypeField As PROCDOUBLEVARTYPE ''' _ Public Property ProcNum() As UShort Get Return Me.procNumField End Get Set Me.procNumField = value Me.RaisePropertyChanged("ProcNum") End Set End Property ''' _ Public Property VarType() As PROCDOUBLEVARTYPE Get Return Me.varTypeField End Get Set Me.varTypeField = value Me.RaisePropertyChanged("VarType") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Public Enum PROCDOUBLEVARTYPE ''' _ PROCDOUBLEVARURP ''' _ PROCDOUBLEVARDWT ''' _ PROCDOUBLEVARJOG ''' _ PROCDOUBLEVARMDA ''' _ PROCDOUBLEVARMSA ''' _ PROCDOUBLEVARSSL ''' _ PROCDOUBLEVARVEF ''' _ PROCDOUBLEVARUPO ''' _ PROCDOUBLEVARUPA ''' _ PROCDOUBLEVARCET ''' _ PROCDOUBLEVARFCT ''' _ PROCDOUBLEVARMBRLEN ''' _ PROCDOUBLEVARMBRTHR End Enum ''' _ Partial Public Class GetProcVarDoubleR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private valueField As Double Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property Value() As Double Get Return Me.valueField End Get Set Me.valueField = value Me.RaisePropertyChanged("Value") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class GetProcVarDoubleRequest _ Public GetProcVarDouble As OpenControl.GetProcVarDouble Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetProcVarDouble As OpenControl.GetProcVarDouble) MyBase.New Me.GetProcVarDouble = GetProcVarDouble End Sub End Class _ Partial Public Class GetProcVarDoubleResponse _ Public GetProcVarDoubleR As OpenControl.GetProcVarDoubleR Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetProcVarDoubleR As OpenControl.GetProcVarDoubleR) MyBase.New Me.GetProcVarDoubleR = GetProcVarDoubleR End Sub End Class ''' _ Partial Public Class SetProcVarDouble Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private procNumField As UShort Private varTypeField As PROCDOUBLEVARTYPE Private valueField As Double ''' _ Public Property ProcNum() As UShort Get Return Me.procNumField End Get Set Me.procNumField = value Me.RaisePropertyChanged("ProcNum") End Set End Property ''' _ Public Property VarType() As PROCDOUBLEVARTYPE Get Return Me.varTypeField End Get Set Me.varTypeField = value Me.RaisePropertyChanged("VarType") End Set End Property ''' _ Public Property Value() As Double Get Return Me.valueField End Get Set Me.valueField = value Me.RaisePropertyChanged("Value") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class SetProcVarDoubleR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class SetProcVarDoubleRequest _ Public SetProcVarDouble As OpenControl.SetProcVarDouble Public Sub New() MyBase.New End Sub Public Sub New(ByVal SetProcVarDouble As OpenControl.SetProcVarDouble) MyBase.New Me.SetProcVarDouble = SetProcVarDouble End Sub End Class _ Partial Public Class SetProcVarDoubleResponse _ Public SetProcVarDoubleR As OpenControl.SetProcVarDoubleR Public Sub New() MyBase.New End Sub Public Sub New(ByVal SetProcVarDoubleR As OpenControl.SetProcVarDoubleR) MyBase.New Me.SetProcVarDoubleR = SetProcVarDoubleR End Sub End Class ''' _ Partial Public Class SetMdiString Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private procNumField As UShort Private mdiStringField As String ''' _ Public Property ProcNum() As UShort Get Return Me.procNumField End Get Set Me.procNumField = value Me.RaisePropertyChanged("ProcNum") End Set End Property ''' _ Public Property MdiString() As String Get Return Me.mdiStringField End Get Set Me.mdiStringField = value Me.RaisePropertyChanged("MdiString") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class SetMdiStringR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class SetMdiStringRequest _ Public SetMdiString As OpenControl.SetMdiString Public Sub New() MyBase.New End Sub Public Sub New(ByVal SetMdiString As OpenControl.SetMdiString) MyBase.New Me.SetMdiString = SetMdiString End Sub End Class _ Partial Public Class SetMdiStringResponse _ Public SetMdiStringR As OpenControl.SetMdiStringR Public Sub New() MyBase.New End Sub Public Sub New(ByVal SetMdiStringR As OpenControl.SetMdiStringR) MyBase.New Me.SetMdiStringR = SetMdiStringR End Sub End Class ''' _ Partial Public Class SetProcessMode Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private procNumField As UShort Private modeField As UShort ''' _ Public Property ProcNum() As UShort Get Return Me.procNumField End Get Set Me.procNumField = value Me.RaisePropertyChanged("ProcNum") End Set End Property ''' _ Public Property Mode() As UShort Get Return Me.modeField End Get Set Me.modeField = value Me.RaisePropertyChanged("Mode") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class SetProcessModeR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class SetProcessModeRequest _ Public SetProcessMode As OpenControl.SetProcessMode Public Sub New() MyBase.New End Sub Public Sub New(ByVal SetProcessMode As OpenControl.SetProcessMode) MyBase.New Me.SetProcessMode = SetProcessMode End Sub End Class _ Partial Public Class SetProcessModeResponse _ Public SetProcessModeR As OpenControl.SetProcessModeR Public Sub New() MyBase.New End Sub Public Sub New(ByVal SetProcessModeR As OpenControl.SetProcessModeR) MyBase.New Me.SetProcessModeR = SetProcessModeR End Sub End Class ''' _ Partial Public Class SelectProcess Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private procNumField As UShort ''' _ Public Property ProcNum() As UShort Get Return Me.procNumField End Get Set Me.procNumField = value Me.RaisePropertyChanged("ProcNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class SelectProcessR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class SelectProcessRequest _ Public SelectProcess As OpenControl.SelectProcess Public Sub New() MyBase.New End Sub Public Sub New(ByVal SelectProcess As OpenControl.SelectProcess) MyBase.New Me.SelectProcess = SelectProcess End Sub End Class _ Partial Public Class SelectProcessResponse _ Public SelectProcessR As OpenControl.SelectProcessR Public Sub New() MyBase.New End Sub Public Sub New(ByVal SelectProcessR As OpenControl.SelectProcessR) MyBase.New Me.SelectProcessR = SelectProcessR End Sub End Class ''' _ Partial Public Class GetSelectedProcess Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class GetSelectedProcessR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private procNumField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ProcNum() As UShort Get Return Me.procNumField End Get Set Me.procNumField = value Me.RaisePropertyChanged("ProcNum") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class GetSelectedProcessRequest _ Public GetSelectedProcess As OpenControl.GetSelectedProcess Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetSelectedProcess As OpenControl.GetSelectedProcess) MyBase.New Me.GetSelectedProcess = GetSelectedProcess End Sub End Class _ Partial Public Class GetSelectedProcessResponse _ Public GetSelectedProcessR As OpenControl.GetSelectedProcessR Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetSelectedProcessR As OpenControl.GetSelectedProcessR) MyBase.New Me.GetSelectedProcessR = GetSelectedProcessR End Sub End Class ''' _ Partial Public Class SelectProcAxis Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private procNumField As UShort Private axisNameField As Byte ''' _ Public Property ProcNum() As UShort Get Return Me.procNumField End Get Set Me.procNumField = value Me.RaisePropertyChanged("ProcNum") End Set End Property ''' _ Public Property AxisName() As Byte Get Return Me.axisNameField End Get Set Me.axisNameField = value Me.RaisePropertyChanged("AxisName") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class SelectProcAxisR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class SelectProcAxisRequest _ Public SelectProcAxis As OpenControl.SelectProcAxis Public Sub New() MyBase.New End Sub Public Sub New(ByVal SelectProcAxis As OpenControl.SelectProcAxis) MyBase.New Me.SelectProcAxis = SelectProcAxis End Sub End Class _ Partial Public Class SelectProcAxisResponse _ Public SelectProcAxisR As OpenControl.SelectProcAxisR Public Sub New() MyBase.New End Sub Public Sub New(ByVal SelectProcAxisR As OpenControl.SelectProcAxisR) MyBase.New Me.SelectProcAxisR = SelectProcAxisR End Sub End Class ''' _ Partial Public Class SelectPartProgram Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private procNumField As UShort Private pPNameField As String ''' _ Public Property ProcNum() As UShort Get Return Me.procNumField End Get Set Me.procNumField = value Me.RaisePropertyChanged("ProcNum") End Set End Property ''' _ Public Property PPName() As String Get Return Me.pPNameField End Get Set Me.pPNameField = value Me.RaisePropertyChanged("PPName") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class SelectPartProgramR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class SelectPartProgramRequest _ Public SelectPartProgram As OpenControl.SelectPartProgram Public Sub New() MyBase.New End Sub Public Sub New(ByVal SelectPartProgram As OpenControl.SelectPartProgram) MyBase.New Me.SelectPartProgram = SelectPartProgram End Sub End Class _ Partial Public Class SelectPartProgramResponse _ Public SelectPartProgramR As OpenControl.SelectPartProgramR Public Sub New() MyBase.New End Sub Public Sub New(ByVal SelectPartProgramR As OpenControl.SelectPartProgramR) MyBase.New Me.SelectPartProgramR = SelectPartProgramR End Sub End Class ''' _ Partial Public Class SelectPartProgramFromDrive Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private procNumField As UShort Private pPNameField As String ''' _ Public Property ProcNum() As UShort Get Return Me.procNumField End Get Set Me.procNumField = value Me.RaisePropertyChanged("ProcNum") End Set End Property ''' _ Public Property PPName() As String Get Return Me.pPNameField End Get Set Me.pPNameField = value Me.RaisePropertyChanged("PPName") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class SelectPartProgramFromDriveR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class SelectPartProgramFromDriveRequest _ Public SelectPartProgramFromDrive As OpenControl.SelectPartProgramFromDrive Public Sub New() MyBase.New End Sub Public Sub New(ByVal SelectPartProgramFromDrive As OpenControl.SelectPartProgramFromDrive) MyBase.New Me.SelectPartProgramFromDrive = SelectPartProgramFromDrive End Sub End Class _ Partial Public Class SelectPartProgramFromDriveResponse _ Public SelectPartProgramFromDriveR As OpenControl.SelectPartProgramFromDriveR Public Sub New() MyBase.New End Sub Public Sub New(ByVal SelectPartProgramFromDriveR As OpenControl.SelectPartProgramFromDriveR) MyBase.New Me.SelectPartProgramFromDriveR = SelectPartProgramFromDriveR End Sub End Class ''' _ Partial Public Class GetActivePartProgram Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private procNumField As UShort ''' _ Public Property ProcNum() As UShort Get Return Me.procNumField End Get Set Me.procNumField = value Me.RaisePropertyChanged("ProcNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class GetActivePartProgramR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private levelField As UShort Private mainField As String Private subField As String Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property Level() As UShort Get Return Me.levelField End Get Set Me.levelField = value Me.RaisePropertyChanged("Level") End Set End Property ''' _ Public Property Main() As String Get Return Me.mainField End Get Set Me.mainField = value Me.RaisePropertyChanged("Main") End Set End Property ''' _ Public Property [Sub]() As String Get Return Me.subField End Get Set Me.subField = value Me.RaisePropertyChanged("Sub") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class GetActivePartProgramRequest _ Public GetActivePartProgram As OpenControl.GetActivePartProgram Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetActivePartProgram As OpenControl.GetActivePartProgram) MyBase.New Me.GetActivePartProgram = GetActivePartProgram End Sub End Class _ Partial Public Class GetActivePartProgramResponse _ Public GetActivePartProgramR As OpenControl.GetActivePartProgramR Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetActivePartProgramR As OpenControl.GetActivePartProgramR) MyBase.New Me.GetActivePartProgramR = GetActivePartProgramR End Sub End Class ''' _ Partial Public Class GetPartProgramLines Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private procNumField As UShort ''' _ Public Property ProcNum() As UShort Get Return Me.procNumField End Get Set Me.procNumField = value Me.RaisePropertyChanged("ProcNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class GetPartProgramLinesR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private pPLine1Field As String Private pPLine2Field As String Private pPLine3Field As String Private pPLine4Field As String Private pPLine5Field As String Private pPLine6Field As String Private pPLine7Field As String Private pPLine8Field As String Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property PPLine1() As String Get Return Me.pPLine1Field End Get Set Me.pPLine1Field = value Me.RaisePropertyChanged("PPLine1") End Set End Property ''' _ Public Property PPLine2() As String Get Return Me.pPLine2Field End Get Set Me.pPLine2Field = value Me.RaisePropertyChanged("PPLine2") End Set End Property ''' _ Public Property PPLine3() As String Get Return Me.pPLine3Field End Get Set Me.pPLine3Field = value Me.RaisePropertyChanged("PPLine3") End Set End Property ''' _ Public Property PPLine4() As String Get Return Me.pPLine4Field End Get Set Me.pPLine4Field = value Me.RaisePropertyChanged("PPLine4") End Set End Property ''' _ Public Property PPLine5() As String Get Return Me.pPLine5Field End Get Set Me.pPLine5Field = value Me.RaisePropertyChanged("PPLine5") End Set End Property ''' _ Public Property PPLine6() As String Get Return Me.pPLine6Field End Get Set Me.pPLine6Field = value Me.RaisePropertyChanged("PPLine6") End Set End Property ''' _ Public Property PPLine7() As String Get Return Me.pPLine7Field End Get Set Me.pPLine7Field = value Me.RaisePropertyChanged("PPLine7") End Set End Property ''' _ Public Property PPLine8() As String Get Return Me.pPLine8Field End Get Set Me.pPLine8Field = value Me.RaisePropertyChanged("PPLine8") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class GetPartProgramLinesRequest _ Public GetPartProgramLines As OpenControl.GetPartProgramLines Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetPartProgramLines As OpenControl.GetPartProgramLines) MyBase.New Me.GetPartProgramLines = GetPartProgramLines End Sub End Class _ Partial Public Class GetPartProgramLinesResponse _ Public GetPartProgramLinesR As OpenControl.GetPartProgramLinesR Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetPartProgramLinesR As OpenControl.GetPartProgramLinesR) MyBase.New Me.GetPartProgramLinesR = GetPartProgramLinesR End Sub End Class ''' _ Partial Public Class GetAxOriginNum Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private procNumField As UShort Private axesNumField As UShort ''' _ Public Property ProcNum() As UShort Get Return Me.procNumField End Get Set Me.procNumField = value Me.RaisePropertyChanged("ProcNum") End Set End Property ''' _ Public Property AxesNum() As UShort Get Return Me.axesNumField End Get Set Me.axesNumField = value Me.RaisePropertyChanged("AxesNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class GetAxOriginNumR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private axesNumField As UShort Private axOriginNumField() As AXORIGNUM Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property AxesNum() As UShort Get Return Me.axesNumField End Get Set Me.axesNumField = value Me.RaisePropertyChanged("AxesNum") End Set End Property ''' _ Public Property AxOriginNum() As AXORIGNUM() Get Return Me.axOriginNumField End Get Set Me.axOriginNumField = value Me.RaisePropertyChanged("AxOriginNum") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class GetAxOriginNumRequest _ Public GetAxOriginNum As OpenControl.GetAxOriginNum Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetAxOriginNum As OpenControl.GetAxOriginNum) MyBase.New Me.GetAxOriginNum = GetAxOriginNum End Sub End Class _ Partial Public Class GetAxOriginNumResponse _ Public GetAxOriginNumR As OpenControl.GetAxOriginNumR Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetAxOriginNumR As OpenControl.GetAxOriginNumR) MyBase.New Me.GetAxOriginNumR = GetAxOriginNumR End Sub End Class ''' _ Partial Public Class GetAxesPosition Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private procNumField As UShort Private axisNameField As Byte Private selectField As UShort Private numAxisField As UShort ''' _ Public Property ProcNum() As UShort Get Return Me.procNumField End Get Set Me.procNumField = value Me.RaisePropertyChanged("ProcNum") End Set End Property ''' _ Public Property AxisName() As Byte Get Return Me.axisNameField End Get Set Me.axisNameField = value Me.RaisePropertyChanged("AxisName") End Set End Property ''' _ Public Property [Select]() As UShort Get Return Me.selectField End Get Set Me.selectField = value Me.RaisePropertyChanged("Select") End Set End Property ''' _ Public Property NumAxis() As UShort Get Return Me.numAxisField End Get Set Me.numAxisField = value Me.RaisePropertyChanged("NumAxis") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class GetAxesPositionR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private numAxisField As UShort Private intPosField() As GETINTDATA Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property NumAxis() As UShort Get Return Me.numAxisField End Get Set Me.numAxisField = value Me.RaisePropertyChanged("NumAxis") End Set End Property ''' _ Public Property IntPos() As GETINTDATA() Get Return Me.intPosField End Get Set Me.intPosField = value Me.RaisePropertyChanged("IntPos") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class GetAxesPositionRequest _ Public GetAxesPosition As OpenControl.GetAxesPosition Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetAxesPosition As OpenControl.GetAxesPosition) MyBase.New Me.GetAxesPosition = GetAxesPosition End Sub End Class _ Partial Public Class GetAxesPositionResponse _ Public GetAxesPositionR As OpenControl.GetAxesPositionR Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetAxesPositionR As OpenControl.GetAxesPositionR) MyBase.New Me.GetAxesPositionR = GetAxesPositionR End Sub End Class ''' _ Partial Public Class GetNcInfo1 Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private procNumField As UShort ''' _ Public Property ProcNum() As UShort Get Return Me.procNumField End Get Set Me.procNumField = value Me.RaisePropertyChanged("ProcNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class GetNcInfo1R Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private getInfoField As GETINFO1DATA Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property GetInfo() As GETINFO1DATA Get Return Me.getInfoField End Get Set Me.getInfoField = value Me.RaisePropertyChanged("GetInfo") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class GetNcInfo1Request _ Public GetNcInfo1 As OpenControl.GetNcInfo1 Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetNcInfo1 As OpenControl.GetNcInfo1) MyBase.New Me.GetNcInfo1 = GetNcInfo1 End Sub End Class _ Partial Public Class GetNcInfo1Response _ Public GetNcInfo1R As OpenControl.GetNcInfo1R Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetNcInfo1R As OpenControl.GetNcInfo1R) MyBase.New Me.GetNcInfo1R = GetNcInfo1R End Sub End Class ''' _ Partial Public Class GetNcInfo2 Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private procNumField As UShort ''' _ Public Property ProcNum() As UShort Get Return Me.procNumField End Get Set Me.procNumField = value Me.RaisePropertyChanged("ProcNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class GetNcInfo2R Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private getInfoField As GETINFO2DATA Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property GetInfo() As GETINFO2DATA Get Return Me.getInfoField End Get Set Me.getInfoField = value Me.RaisePropertyChanged("GetInfo") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class GetNcInfo2Request _ Public GetNcInfo2 As OpenControl.GetNcInfo2 Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetNcInfo2 As OpenControl.GetNcInfo2) MyBase.New Me.GetNcInfo2 = GetNcInfo2 End Sub End Class _ Partial Public Class GetNcInfo2Response _ Public GetNcInfo2R As OpenControl.GetNcInfo2R Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetNcInfo2R As OpenControl.GetNcInfo2R) MyBase.New Me.GetNcInfo2R = GetNcInfo2R End Sub End Class ''' _ Partial Public Class GetToolNames Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private procNumField As UShort ''' _ Public Property ProcNum() As UShort Get Return Me.procNumField End Get Set Me.procNumField = value Me.RaisePropertyChanged("ProcNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class GetToolNamesR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private toolField As String Private progToolField As String Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property Tool() As String Get Return Me.toolField End Get Set Me.toolField = value Me.RaisePropertyChanged("Tool") End Set End Property ''' _ Public Property ProgTool() As String Get Return Me.progToolField End Get Set Me.progToolField = value Me.RaisePropertyChanged("ProgTool") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class GetToolNamesRequest _ Public GetToolNames As OpenControl.GetToolNames Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetToolNames As OpenControl.GetToolNames) MyBase.New Me.GetToolNames = GetToolNames End Sub End Class _ Partial Public Class GetToolNamesResponse _ Public GetToolNamesR As OpenControl.GetToolNamesR Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetToolNamesR As OpenControl.GetToolNamesR) MyBase.New Me.GetToolNamesR = GetToolNamesR End Sub End Class ''' _ Partial Public Class GetProcessStatus Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private procNumField As UShort ''' _ Public Property ProcNum() As UShort Get Return Me.procNumField End Get Set Me.procNumField = value Me.RaisePropertyChanged("ProcNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class GetProcessStatusR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private procStatField As PROCDATA Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ProcStat() As PROCDATA Get Return Me.procStatField End Get Set Me.procStatField = value Me.RaisePropertyChanged("ProcStat") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class GetProcessStatusRequest _ Public GetProcessStatus As OpenControl.GetProcessStatus Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetProcessStatus As OpenControl.GetProcessStatus) MyBase.New Me.GetProcessStatus = GetProcessStatus End Sub End Class _ Partial Public Class GetProcessStatusResponse _ Public GetProcessStatusR As OpenControl.GetProcessStatusR Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetProcessStatusR As OpenControl.GetProcessStatusR) MyBase.New Me.GetProcessStatusR = GetProcessStatusR End Sub End Class ''' _ Partial Public Class GetBlkNum Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private procNumField As UShort ''' _ Public Property ProcNum() As UShort Get Return Me.procNumField End Get Set Me.procNumField = value Me.RaisePropertyChanged("ProcNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class GetBlkNumR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private getBlkNumField As GETBLKNUMDATA Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property GetBlkNum() As GETBLKNUMDATA Get Return Me.getBlkNumField End Get Set Me.getBlkNumField = value Me.RaisePropertyChanged("GetBlkNum") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class GetBlkNumRequest _ Public GetBlkNum As OpenControl.GetBlkNum Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetBlkNum As OpenControl.GetBlkNum) MyBase.New Me.GetBlkNum = GetBlkNum End Sub End Class _ Partial Public Class GetBlkNumResponse _ Public GetBlkNumR As OpenControl.GetBlkNumR Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetBlkNumR As OpenControl.GetBlkNumR) MyBase.New Me.GetBlkNumR = GetBlkNumR End Sub End Class ''' _ Partial Public Class ReadErrMsg Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private procNumField As UShort ''' _ Public Property ProcNum() As UShort Get Return Me.procNumField End Get Set Me.procNumField = value Me.RaisePropertyChanged("ProcNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class ReadErrMsgR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private sysErrMsgField As ERRMSG Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property SysErrMsg() As ERRMSG Get Return Me.sysErrMsgField End Get Set Me.sysErrMsgField = value Me.RaisePropertyChanged("SysErrMsg") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class ReadErrMsgRequest _ Public ReadErrMsg As OpenControl.ReadErrMsg Public Sub New() MyBase.New End Sub Public Sub New(ByVal ReadErrMsg As OpenControl.ReadErrMsg) MyBase.New Me.ReadErrMsg = ReadErrMsg End Sub End Class _ Partial Public Class ReadErrMsgResponse _ Public ReadErrMsgR As OpenControl.ReadErrMsgR Public Sub New() MyBase.New End Sub Public Sub New(ByVal ReadErrMsgR As OpenControl.ReadErrMsgR) MyBase.New Me.ReadErrMsgR = ReadErrMsgR End Sub End Class ''' _ Partial Public Class ReadPartProgramMsg Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private procNumField As UShort ''' _ Public Property ProcNum() As UShort Get Return Me.procNumField End Get Set Me.procNumField = value Me.RaisePropertyChanged("ProcNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class ReadPartProgramMsgR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private partProgramMsgField As String Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property PartProgramMsg() As String Get Return Me.partProgramMsgField End Get Set Me.partProgramMsgField = value Me.RaisePropertyChanged("PartProgramMsg") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class ReadPartProgramMsgRequest _ Public ReadPartProgramMsg As OpenControl.ReadPartProgramMsg Public Sub New() MyBase.New End Sub Public Sub New(ByVal ReadPartProgramMsg As OpenControl.ReadPartProgramMsg) MyBase.New Me.ReadPartProgramMsg = ReadPartProgramMsg End Sub End Class _ Partial Public Class ReadPartProgramMsgResponse _ Public ReadPartProgramMsgR As OpenControl.ReadPartProgramMsgR Public Sub New() MyBase.New End Sub Public Sub New(ByVal ReadPartProgramMsgR As OpenControl.ReadPartProgramMsgR) MyBase.New Me.ReadPartProgramMsgR = ReadPartProgramMsgR End Sub End Class ''' _ Partial Public Class GetGCode Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private procNumField As UShort ''' _ Public Property ProcNum() As UShort Get Return Me.procNumField End Get Set Me.procNumField = value Me.RaisePropertyChanged("ProcNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class GetGCodeR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private gCodeField() As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property GCode() As UShort() Get Return Me.gCodeField End Get Set Me.gCodeField = value Me.RaisePropertyChanged("GCode") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class GetGCodeRequest _ Public GetGCode As OpenControl.GetGCode Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetGCode As OpenControl.GetGCode) MyBase.New Me.GetGCode = GetGCode End Sub End Class _ Partial Public Class GetGCodeResponse _ Public GetGCodeR As OpenControl.GetGCodeR Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetGCodeR As OpenControl.GetGCodeR) MyBase.New Me.GetGCodeR = GetGCodeR End Sub End Class ''' _ Partial Public Class GetMCode Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private procNumField As UShort ''' _ Public Property ProcNum() As UShort Get Return Me.procNumField End Get Set Me.procNumField = value Me.RaisePropertyChanged("ProcNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class GetMCodeR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private mCodeField() As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property MCode() As UShort() Get Return Me.mCodeField End Get Set Me.mCodeField = value Me.RaisePropertyChanged("MCode") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class GetMCodeRequest _ Public GetMCode As OpenControl.GetMCode Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetMCode As OpenControl.GetMCode) MyBase.New Me.GetMCode = GetMCode End Sub End Class _ Partial Public Class GetMCodeResponse _ Public GetMCodeR As OpenControl.GetMCodeR Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetMCodeR As OpenControl.GetMCodeR) MyBase.New Me.GetMCodeR = GetMCodeR End Sub End Class ''' _ Partial Public Class SkipPProgBlock Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private procNumField As UShort Private numOfBlocksField As UInteger Private directionField As UShort ''' _ Public Property ProcNum() As UShort Get Return Me.procNumField End Get Set Me.procNumField = value Me.RaisePropertyChanged("ProcNum") End Set End Property ''' _ Public Property NumOfBlocks() As UInteger Get Return Me.numOfBlocksField End Get Set Me.numOfBlocksField = value Me.RaisePropertyChanged("NumOfBlocks") End Set End Property ''' _ Public Property Direction() As UShort Get Return Me.directionField End Get Set Me.directionField = value Me.RaisePropertyChanged("Direction") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class SkipPProgBlockR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class SkipPProgBlockRequest _ Public SkipPProgBlock As OpenControl.SkipPProgBlock Public Sub New() MyBase.New End Sub Public Sub New(ByVal SkipPProgBlock As OpenControl.SkipPProgBlock) MyBase.New Me.SkipPProgBlock = SkipPProgBlock End Sub End Class _ Partial Public Class SkipPProgBlockResponse _ Public SkipPProgBlockR As OpenControl.SkipPProgBlockR Public Sub New() MyBase.New End Sub Public Sub New(ByVal SkipPProgBlockR As OpenControl.SkipPProgBlockR) MyBase.New Me.SkipPProgBlockR = SkipPProgBlockR End Sub End Class ''' _ Partial Public Class Ese Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private procNumField As UShort Private blockNumField As UInteger ''' _ Public Property ProcNum() As UShort Get Return Me.procNumField End Get Set Me.procNumField = value Me.RaisePropertyChanged("ProcNum") End Set End Property ''' _ Public Property BlockNum() As UInteger Get Return Me.blockNumField End Get Set Me.blockNumField = value Me.RaisePropertyChanged("BlockNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class EseR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class EseRequest _ Public Ese As OpenControl.Ese Public Sub New() MyBase.New End Sub Public Sub New(ByVal Ese As OpenControl.Ese) MyBase.New Me.Ese = Ese End Sub End Class _ Partial Public Class EseResponse _ Public EseR As OpenControl.EseR Public Sub New() MyBase.New End Sub Public Sub New(ByVal EseR As OpenControl.EseR) MyBase.New Me.EseR = EseR End Sub End Class ''' _ Partial Public Class EseEx Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private procNumField As UShort Private modeField As RCMTOMODE Private maskField As UInteger Private blockNumField As UInteger Private lineNumField As UInteger Private brkValField As UInteger Private labelField As String ''' _ Public Property ProcNum() As UShort Get Return Me.procNumField End Get Set Me.procNumField = value Me.RaisePropertyChanged("ProcNum") End Set End Property ''' _ Public Property Mode() As RCMTOMODE Get Return Me.modeField End Get Set Me.modeField = value Me.RaisePropertyChanged("Mode") End Set End Property ''' _ Public Property Mask() As UInteger Get Return Me.maskField End Get Set Me.maskField = value Me.RaisePropertyChanged("Mask") End Set End Property ''' _ Public Property BlockNum() As UInteger Get Return Me.blockNumField End Get Set Me.blockNumField = value Me.RaisePropertyChanged("BlockNum") End Set End Property ''' _ Public Property LineNum() As UInteger Get Return Me.lineNumField End Get Set Me.lineNumField = value Me.RaisePropertyChanged("LineNum") End Set End Property ''' _ Public Property BrkVal() As UInteger Get Return Me.brkValField End Get Set Me.brkValField = value Me.RaisePropertyChanged("BrkVal") End Set End Property ''' _ Public Property Label() As String Get Return Me.labelField End Get Set Me.labelField = value Me.RaisePropertyChanged("Label") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Public Enum RCMTOMODE ''' _ RCMTOTO ''' _ RCMTONEXT End Enum ''' _ Partial Public Class EseExR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class EseExRequest _ Public EseEx As OpenControl.EseEx Public Sub New() MyBase.New End Sub Public Sub New(ByVal EseEx As OpenControl.EseEx) MyBase.New Me.EseEx = EseEx End Sub End Class _ Partial Public Class EseExResponse _ Public EseExR As OpenControl.EseExR Public Sub New() MyBase.New End Sub Public Sub New(ByVal EseExR As OpenControl.EseExR) MyBase.New Me.EseExR = EseExR End Sub End Class ''' _ Partial Public Class Exe Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private procNumField As UShort Private funcField As UShort Private modeField As UShort ''' _ Public Property ProcNum() As UShort Get Return Me.procNumField End Get Set Me.procNumField = value Me.RaisePropertyChanged("ProcNum") End Set End Property ''' _ Public Property Func() As UShort Get Return Me.funcField End Get Set Me.funcField = value Me.RaisePropertyChanged("Func") End Set End Property ''' _ Public Property Mode() As UShort Get Return Me.modeField End Get Set Me.modeField = value Me.RaisePropertyChanged("Mode") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class ExeR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class ExeRequest _ Public Exe As OpenControl.Exe Public Sub New() MyBase.New End Sub Public Sub New(ByVal Exe As OpenControl.Exe) MyBase.New Me.Exe = Exe End Sub End Class _ Partial Public Class ExeResponse _ Public ExeR As OpenControl.ExeR Public Sub New() MyBase.New End Sub Public Sub New(ByVal ExeR As OpenControl.ExeR) MyBase.New Me.ExeR = ExeR End Sub End Class ''' _ Partial Public Class AxesRef Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private procNumField As UShort Private numAxField As UShort Private axisNameField As String ''' _ Public Property ProcNum() As UShort Get Return Me.procNumField End Get Set Me.procNumField = value Me.RaisePropertyChanged("ProcNum") End Set End Property ''' _ Public Property NumAx() As UShort Get Return Me.numAxField End Get Set Me.numAxField = value Me.RaisePropertyChanged("NumAx") End Set End Property ''' _ Public Property AxisName() As String Get Return Me.axisNameField End Get Set Me.axisNameField = value Me.RaisePropertyChanged("AxisName") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class AxesRefR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class AxesRefRequest _ Public AxesRef As OpenControl.AxesRef Public Sub New() MyBase.New End Sub Public Sub New(ByVal AxesRef As OpenControl.AxesRef) MyBase.New Me.AxesRef = AxesRef End Sub End Class _ Partial Public Class AxesRefResponse _ Public AxesRefR As OpenControl.AxesRefR Public Sub New() MyBase.New End Sub Public Sub New(ByVal AxesRefR As OpenControl.AxesRefR) MyBase.New Me.AxesRefR = AxesRefR End Sub End Class ''' _ Partial Public Class DncInit Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private procNumField As UShort Private pathNameField As String ''' _ Public Property ProcNum() As UShort Get Return Me.procNumField End Get Set Me.procNumField = value Me.RaisePropertyChanged("ProcNum") End Set End Property ''' _ Public Property PathName() As String Get Return Me.pathNameField End Get Set Me.pathNameField = value Me.RaisePropertyChanged("PathName") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class DncInitR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class DncInitRequest _ Public DncInit As OpenControl.DncInit Public Sub New() MyBase.New End Sub Public Sub New(ByVal DncInit As OpenControl.DncInit) MyBase.New Me.DncInit = DncInit End Sub End Class _ Partial Public Class DncInitResponse _ Public DncInitR As OpenControl.DncInitR Public Sub New() MyBase.New End Sub Public Sub New(ByVal DncInitR As OpenControl.DncInitR) MyBase.New Me.DncInitR = DncInitR End Sub End Class ''' _ Partial Public Class DncData Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private procNumField As UShort Private dataField As String ''' _ Public Property ProcNum() As UShort Get Return Me.procNumField End Get Set Me.procNumField = value Me.RaisePropertyChanged("ProcNum") End Set End Property ''' _ Public Property Data() As String Get Return Me.dataField End Get Set Me.dataField = value Me.RaisePropertyChanged("Data") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class DncDataR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class DncDataRequest _ Public DncData As OpenControl.DncData Public Sub New() MyBase.New End Sub Public Sub New(ByVal DncData As OpenControl.DncData) MyBase.New Me.DncData = DncData End Sub End Class _ Partial Public Class DncDataResponse _ Public DncDataR As OpenControl.DncDataR Public Sub New() MyBase.New End Sub Public Sub New(ByVal DncDataR As OpenControl.DncDataR) MyBase.New Me.DncDataR = DncDataR End Sub End Class ''' _ Partial Public Class DncEof Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private procNumField As UShort ''' _ Public Property ProcNum() As UShort Get Return Me.procNumField End Get Set Me.procNumField = value Me.RaisePropertyChanged("ProcNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class DncEofR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class DncEofRequest _ Public DncEof As OpenControl.DncEof Public Sub New() MyBase.New End Sub Public Sub New(ByVal DncEof As OpenControl.DncEof) MyBase.New Me.DncEof = DncEof End Sub End Class _ Partial Public Class DncEofResponse _ Public DncEofR As OpenControl.DncEofR Public Sub New() MyBase.New End Sub Public Sub New(ByVal DncEofR As OpenControl.DncEofR) MyBase.New Me.DncEofR = DncEofR End Sub End Class ''' _ Partial Public Class DncStop Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private procNumField As UShort ''' _ Public Property ProcNum() As UShort Get Return Me.procNumField End Get Set Me.procNumField = value Me.RaisePropertyChanged("ProcNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class DncStopR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class DncStopRequest _ Public DncStop As OpenControl.DncStop Public Sub New() MyBase.New End Sub Public Sub New(ByVal DncStop As OpenControl.DncStop) MyBase.New Me.DncStop = DncStop End Sub End Class _ Partial Public Class DncStopResponse _ Public DncStopR As OpenControl.DncStopR Public Sub New() MyBase.New End Sub Public Sub New(ByVal DncStopR As OpenControl.DncStopR) MyBase.New Me.DncStopR = DncStopR End Sub End Class ''' _ Partial Public Class GetAxesInfo3 Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private axisIdField As UShort Private axesNumField As UShort ''' _ Public Property AxisId() As UShort Get Return Me.axisIdField End Get Set Me.axisIdField = value Me.RaisePropertyChanged("AxisId") End Set End Property ''' _ Public Property AxesNum() As UShort Get Return Me.axesNumField End Get Set Me.axesNumField = value Me.RaisePropertyChanged("AxesNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class GetAxesInfo3R Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private axesNumField As UShort Private axOwnerListField() As UShort Private axNameListField() As Byte Private axTypeField() As UShort Private axInterfaceField() As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property AxesNum() As UShort Get Return Me.axesNumField End Get Set Me.axesNumField = value Me.RaisePropertyChanged("AxesNum") End Set End Property ''' _ Public Property AxOwnerList() As UShort() Get Return Me.axOwnerListField End Get Set Me.axOwnerListField = value Me.RaisePropertyChanged("AxOwnerList") End Set End Property ''' _ Public Property AxNameList() As Byte() Get Return Me.axNameListField End Get Set Me.axNameListField = value Me.RaisePropertyChanged("AxNameList") End Set End Property ''' _ Public Property AxType() As UShort() Get Return Me.axTypeField End Get Set Me.axTypeField = value Me.RaisePropertyChanged("AxType") End Set End Property ''' _ Public Property AxInterface() As UShort() Get Return Me.axInterfaceField End Get Set Me.axInterfaceField = value Me.RaisePropertyChanged("AxInterface") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class GetAxesInfo3Request _ Public GetAxesInfo3 As OpenControl.GetAxesInfo3 Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetAxesInfo3 As OpenControl.GetAxesInfo3) MyBase.New Me.GetAxesInfo3 = GetAxesInfo3 End Sub End Class _ Partial Public Class GetAxesInfo3Response _ Public GetAxesInfo3R As OpenControl.GetAxesInfo3R Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetAxesInfo3R As OpenControl.GetAxesInfo3R) MyBase.New Me.GetAxesInfo3R = GetAxesInfo3R End Sub End Class ''' _ Partial Public Class GetCodeNumber Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class GetCodeNumberR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private codeNumberField As String Private swVersionField As String Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property CodeNumber() As String Get Return Me.codeNumberField End Get Set Me.codeNumberField = value Me.RaisePropertyChanged("CodeNumber") End Set End Property ''' _ Public Property SwVersion() As String Get Return Me.swVersionField End Get Set Me.swVersionField = value Me.RaisePropertyChanged("SwVersion") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class GetCodeNumberRequest _ Public GetCodeNumber As OpenControl.GetCodeNumber Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetCodeNumber As OpenControl.GetCodeNumber) MyBase.New Me.GetCodeNumber = GetCodeNumber End Sub End Class _ Partial Public Class GetCodeNumberResponse _ Public GetCodeNumberR As OpenControl.GetCodeNumberR Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetCodeNumberR As OpenControl.GetCodeNumberR) MyBase.New Me.GetCodeNumberR = GetCodeNumberR End Sub End Class ''' _ Partial Public Class GetOptions Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class GetOptionsR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private optionField() As Byte Private securLevelField() As Byte Private swVersionField As String Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property [Option]() As Byte() Get Return Me.optionField End Get Set Me.optionField = value Me.RaisePropertyChanged("Option") End Set End Property ''' _ Public Property SecurLevel() As Byte() Get Return Me.securLevelField End Get Set Me.securLevelField = value Me.RaisePropertyChanged("SecurLevel") End Set End Property ''' _ Public Property SwVersion() As String Get Return Me.swVersionField End Get Set Me.swVersionField = value Me.RaisePropertyChanged("SwVersion") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class GetOptionsRequest _ Public GetOptions As OpenControl.GetOptions Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetOptions As OpenControl.GetOptions) MyBase.New Me.GetOptions = GetOptions End Sub End Class _ Partial Public Class GetOptionsResponse _ Public GetOptionsR As OpenControl.GetOptionsR Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetOptionsR As OpenControl.GetOptionsR) MyBase.New Me.GetOptionsR = GetOptionsR End Sub End Class ''' _ Partial Public Class GetDateTime Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class GetDateTimeR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private yearField As UShort Private monthField As UShort Private dayField As UShort Private hourField As UShort Private minuteField As UShort Private secondField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property Year() As UShort Get Return Me.yearField End Get Set Me.yearField = value Me.RaisePropertyChanged("Year") End Set End Property ''' _ Public Property Month() As UShort Get Return Me.monthField End Get Set Me.monthField = value Me.RaisePropertyChanged("Month") End Set End Property ''' _ Public Property Day() As UShort Get Return Me.dayField End Get Set Me.dayField = value Me.RaisePropertyChanged("Day") End Set End Property ''' _ Public Property Hour() As UShort Get Return Me.hourField End Get Set Me.hourField = value Me.RaisePropertyChanged("Hour") End Set End Property ''' _ Public Property Minute() As UShort Get Return Me.minuteField End Get Set Me.minuteField = value Me.RaisePropertyChanged("Minute") End Set End Property ''' _ Public Property Second() As UShort Get Return Me.secondField End Get Set Me.secondField = value Me.RaisePropertyChanged("Second") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class GetDateTimeRequest _ Public GetDateTime As OpenControl.GetDateTime Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetDateTime As OpenControl.GetDateTime) MyBase.New Me.GetDateTime = GetDateTime End Sub End Class _ Partial Public Class GetDateTimeResponse _ Public GetDateTimeR As OpenControl.GetDateTimeR Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetDateTimeR As OpenControl.GetDateTimeR) MyBase.New Me.GetDateTimeR = GetDateTimeR End Sub End Class ''' _ Partial Public Class SetDateTime Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private yearField As UShort Private monthField As UShort Private dayField As UShort Private hourField As UShort Private minuteField As UShort Private secondField As UShort ''' _ Public Property Year() As UShort Get Return Me.yearField End Get Set Me.yearField = value Me.RaisePropertyChanged("Year") End Set End Property ''' _ Public Property Month() As UShort Get Return Me.monthField End Get Set Me.monthField = value Me.RaisePropertyChanged("Month") End Set End Property ''' _ Public Property Day() As UShort Get Return Me.dayField End Get Set Me.dayField = value Me.RaisePropertyChanged("Day") End Set End Property ''' _ Public Property Hour() As UShort Get Return Me.hourField End Get Set Me.hourField = value Me.RaisePropertyChanged("Hour") End Set End Property ''' _ Public Property Minute() As UShort Get Return Me.minuteField End Get Set Me.minuteField = value Me.RaisePropertyChanged("Minute") End Set End Property ''' _ Public Property Second() As UShort Get Return Me.secondField End Get Set Me.secondField = value Me.RaisePropertyChanged("Second") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class SetDateTimeR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class SetDateTimeRequest _ Public SetDateTime As OpenControl.SetDateTime Public Sub New() MyBase.New End Sub Public Sub New(ByVal SetDateTime As OpenControl.SetDateTime) MyBase.New Me.SetDateTime = SetDateTime End Sub End Class _ Partial Public Class SetDateTimeResponse _ Public SetDateTimeR As OpenControl.SetDateTimeR Public Sub New() MyBase.New End Sub Public Sub New(ByVal SetDateTimeR As OpenControl.SetDateTimeR) MyBase.New Me.SetDateTimeR = SetDateTimeR End Sub End Class ''' _ Partial Public Class GetSerialNumber Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class GetSerialNumberR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private serialNumberField As String Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property SerialNumber() As String Get Return Me.serialNumberField End Get Set Me.serialNumberField = value Me.RaisePropertyChanged("SerialNumber") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class GetSerialNumberRequest _ Public GetSerialNumber As OpenControl.GetSerialNumber Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetSerialNumber As OpenControl.GetSerialNumber) MyBase.New Me.GetSerialNumber = GetSerialNumber End Sub End Class _ Partial Public Class GetSerialNumberResponse _ Public GetSerialNumberR As OpenControl.GetSerialNumberR Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetSerialNumberR As OpenControl.GetSerialNumberR) MyBase.New Me.GetSerialNumberR = GetSerialNumberR End Sub End Class ''' _ Partial Public Class PutFile Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private dataField As String Private sizeField As UInteger Private pathNameField As String ''' _ Public Property Data() As String Get Return Me.dataField End Get Set Me.dataField = value Me.RaisePropertyChanged("Data") End Set End Property ''' _ Public Property Size() As UInteger Get Return Me.sizeField End Get Set Me.sizeField = value Me.RaisePropertyChanged("Size") End Set End Property ''' _ Public Property PathName() As String Get Return Me.pathNameField End Get Set Me.pathNameField = value Me.RaisePropertyChanged("PathName") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class PutFileR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class PutFileRequest _ Public PutFile As OpenControl.PutFile Public Sub New() MyBase.New End Sub Public Sub New(ByVal PutFile As OpenControl.PutFile) MyBase.New Me.PutFile = PutFile End Sub End Class _ Partial Public Class PutFileResponse _ Public PutFileR As OpenControl.PutFileR Public Sub New() MyBase.New End Sub Public Sub New(ByVal PutFileR As OpenControl.PutFileR) MyBase.New Me.PutFileR = PutFileR End Sub End Class ''' _ Partial Public Class GetFile Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private pathNameField As String Private sizeField As UInteger ''' _ Public Property PathName() As String Get Return Me.pathNameField End Get Set Me.pathNameField = value Me.RaisePropertyChanged("PathName") End Set End Property ''' _ Public Property Size() As UInteger Get Return Me.sizeField End Get Set Me.sizeField = value Me.RaisePropertyChanged("Size") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class GetFileR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private sizeField As UInteger Private dataField As String Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property Size() As UInteger Get Return Me.sizeField End Get Set Me.sizeField = value Me.RaisePropertyChanged("Size") End Set End Property ''' _ Public Property Data() As String Get Return Me.dataField End Get Set Me.dataField = value Me.RaisePropertyChanged("Data") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class GetFileRequest _ Public GetFile As OpenControl.GetFile Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetFile As OpenControl.GetFile) MyBase.New Me.GetFile = GetFile End Sub End Class _ Partial Public Class GetFileResponse _ Public GetFileR As OpenControl.GetFileR Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetFileR As OpenControl.GetFileR) MyBase.New Me.GetFileR = GetFileR End Sub End Class ''' _ Partial Public Class PutBinaryFile Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private dataField() As Byte Private pathNameField As String ''' _ Public Property Data() As Byte() Get Return Me.dataField End Get Set Me.dataField = value Me.RaisePropertyChanged("Data") End Set End Property ''' _ Public Property PathName() As String Get Return Me.pathNameField End Get Set Me.pathNameField = value Me.RaisePropertyChanged("PathName") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class PutBinaryFileR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class PutBinaryFileRequest _ Public PutBinaryFile As OpenControl.PutBinaryFile Public Sub New() MyBase.New End Sub Public Sub New(ByVal PutBinaryFile As OpenControl.PutBinaryFile) MyBase.New Me.PutBinaryFile = PutBinaryFile End Sub End Class _ Partial Public Class PutBinaryFileResponse _ Public PutBinaryFileR As OpenControl.PutBinaryFileR Public Sub New() MyBase.New End Sub Public Sub New(ByVal PutBinaryFileR As OpenControl.PutBinaryFileR) MyBase.New Me.PutBinaryFileR = PutBinaryFileR End Sub End Class ''' _ Partial Public Class GetBinaryFile Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private pathNameField As String Private sizeField As UInteger ''' _ Public Property PathName() As String Get Return Me.pathNameField End Get Set Me.pathNameField = value Me.RaisePropertyChanged("PathName") End Set End Property ''' _ Public Property Size() As UInteger Get Return Me.sizeField End Get Set Me.sizeField = value Me.RaisePropertyChanged("Size") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class GetBinaryFileR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private dataField() As Byte Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property Data() As Byte() Get Return Me.dataField End Get Set Me.dataField = value Me.RaisePropertyChanged("Data") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class GetBinaryFileRequest _ Public GetBinaryFile As OpenControl.GetBinaryFile Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetBinaryFile As OpenControl.GetBinaryFile) MyBase.New Me.GetBinaryFile = GetBinaryFile End Sub End Class _ Partial Public Class GetBinaryFileResponse _ Public GetBinaryFileR As OpenControl.GetBinaryFileR Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetBinaryFileR As OpenControl.GetBinaryFileR) MyBase.New Me.GetBinaryFileR = GetBinaryFileR End Sub End Class ''' _ Partial Public Class LogFSSetSecurityLevel Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private passwordField As String Private securityLevelField As SECURITYLEVEL ''' _ Public Property Password() As String Get Return Me.passwordField End Get Set Me.passwordField = value Me.RaisePropertyChanged("Password") End Set End Property ''' _ Public Property SecurityLevel() As SECURITYLEVEL Get Return Me.securityLevelField End Get Set Me.securityLevelField = value Me.RaisePropertyChanged("SecurityLevel") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Public Enum SECURITYLEVEL ''' _ SECURITYLEVELADMIN ''' _ SECURITYLEVELSERVICE ''' _ SECURITYLEVELOEMADMIN ''' _ SECURITYLEVELOEMSERVICE ''' _ SECURITYLEVELUSERADMIN ''' _ SECURITYLEVELUSERSERVICE End Enum ''' _ Partial Public Class LogFSSetSecurityLevelR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private oldSecurityLevelField As SECURITYLEVEL Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property OldSecurityLevel() As SECURITYLEVEL Get Return Me.oldSecurityLevelField End Get Set Me.oldSecurityLevelField = value Me.RaisePropertyChanged("OldSecurityLevel") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class LogFSSetSecurityLevelRequest _ Public LogFSSetSecurityLevel As OpenControl.LogFSSetSecurityLevel Public Sub New() MyBase.New End Sub Public Sub New(ByVal LogFSSetSecurityLevel As OpenControl.LogFSSetSecurityLevel) MyBase.New Me.LogFSSetSecurityLevel = LogFSSetSecurityLevel End Sub End Class _ Partial Public Class LogFSSetSecurityLevelResponse _ Public LogFSSetSecurityLevelR As OpenControl.LogFSSetSecurityLevelR Public Sub New() MyBase.New End Sub Public Sub New(ByVal LogFSSetSecurityLevelR As OpenControl.LogFSSetSecurityLevelR) MyBase.New Me.LogFSSetSecurityLevelR = LogFSSetSecurityLevelR End Sub End Class ''' _ Partial Public Class LogFSGetSecurityLevel Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class LogFSGetSecurityLevelR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private securityLevelField As SECURITYLEVEL Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property SecurityLevel() As SECURITYLEVEL Get Return Me.securityLevelField End Get Set Me.securityLevelField = value Me.RaisePropertyChanged("SecurityLevel") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class LogFSGetSecurityLevelRequest _ Public LogFSGetSecurityLevel As OpenControl.LogFSGetSecurityLevel Public Sub New() MyBase.New End Sub Public Sub New(ByVal LogFSGetSecurityLevel As OpenControl.LogFSGetSecurityLevel) MyBase.New Me.LogFSGetSecurityLevel = LogFSGetSecurityLevel End Sub End Class _ Partial Public Class LogFSGetSecurityLevelResponse _ Public LogFSGetSecurityLevelR As OpenControl.LogFSGetSecurityLevelR Public Sub New() MyBase.New End Sub Public Sub New(ByVal LogFSGetSecurityLevelR As OpenControl.LogFSGetSecurityLevelR) MyBase.New Me.LogFSGetSecurityLevelR = LogFSGetSecurityLevelR End Sub End Class ''' _ Partial Public Class LogFSLongFileNames Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class LogFSLongFileNamesR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private useLongFileNamesField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property UseLongFileNames() As UShort Get Return Me.useLongFileNamesField End Get Set Me.useLongFileNamesField = value Me.RaisePropertyChanged("UseLongFileNames") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class LogFSLongFileNamesRequest _ Public LogFSLongFileNames As OpenControl.LogFSLongFileNames Public Sub New() MyBase.New End Sub Public Sub New(ByVal LogFSLongFileNames As OpenControl.LogFSLongFileNames) MyBase.New Me.LogFSLongFileNames = LogFSLongFileNames End Sub End Class _ Partial Public Class LogFSLongFileNamesResponse _ Public LogFSLongFileNamesR As OpenControl.LogFSLongFileNamesR Public Sub New() MyBase.New End Sub Public Sub New(ByVal LogFSLongFileNamesR As OpenControl.LogFSLongFileNamesR) MyBase.New Me.LogFSLongFileNamesR = LogFSLongFileNamesR End Sub End Class ''' _ Partial Public Class LogFSGetNumDrive Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class LogFSGetNumDriveR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private numHiddenDriveField As UShort Private numUserDriveField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property NumHiddenDrive() As UShort Get Return Me.numHiddenDriveField End Get Set Me.numHiddenDriveField = value Me.RaisePropertyChanged("NumHiddenDrive") End Set End Property ''' _ Public Property NumUserDrive() As UShort Get Return Me.numUserDriveField End Get Set Me.numUserDriveField = value Me.RaisePropertyChanged("NumUserDrive") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class LogFSGetNumDriveRequest _ Public LogFSGetNumDrive As OpenControl.LogFSGetNumDrive Public Sub New() MyBase.New End Sub Public Sub New(ByVal LogFSGetNumDrive As OpenControl.LogFSGetNumDrive) MyBase.New Me.LogFSGetNumDrive = LogFSGetNumDrive End Sub End Class _ Partial Public Class LogFSGetNumDriveResponse _ Public LogFSGetNumDriveR As OpenControl.LogFSGetNumDriveR Public Sub New() MyBase.New End Sub Public Sub New(ByVal LogFSGetNumDriveR As OpenControl.LogFSGetNumDriveR) MyBase.New Me.LogFSGetNumDriveR = LogFSGetNumDriveR End Sub End Class ''' _ Partial Public Class LogFSGetDriveList Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private indexField As UShort ''' _ Public Property Index() As UShort Get Return Me.indexField End Get Set Me.indexField = value Me.RaisePropertyChanged("Index") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class LogFSGetDriveListR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private driveNameField As String Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property DriveName() As String Get Return Me.driveNameField End Get Set Me.driveNameField = value Me.RaisePropertyChanged("DriveName") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class LogFSGetDriveListRequest _ Public LogFSGetDriveList As OpenControl.LogFSGetDriveList Public Sub New() MyBase.New End Sub Public Sub New(ByVal LogFSGetDriveList As OpenControl.LogFSGetDriveList) MyBase.New Me.LogFSGetDriveList = LogFSGetDriveList End Sub End Class _ Partial Public Class LogFSGetDriveListResponse _ Public LogFSGetDriveListR As OpenControl.LogFSGetDriveListR Public Sub New() MyBase.New End Sub Public Sub New(ByVal LogFSGetDriveListR As OpenControl.LogFSGetDriveListR) MyBase.New Me.LogFSGetDriveListR = LogFSGetDriveListR End Sub End Class ''' _ Partial Public Class LogFSGetHiddenDriveList Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private indexField As UShort ''' _ Public Property Index() As UShort Get Return Me.indexField End Get Set Me.indexField = value Me.RaisePropertyChanged("Index") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class LogFSGetHiddenDriveListR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private driveNameField As String Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property DriveName() As String Get Return Me.driveNameField End Get Set Me.driveNameField = value Me.RaisePropertyChanged("DriveName") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class LogFSGetHiddenDriveListRequest _ Public LogFSGetHiddenDriveList As OpenControl.LogFSGetHiddenDriveList Public Sub New() MyBase.New End Sub Public Sub New(ByVal LogFSGetHiddenDriveList As OpenControl.LogFSGetHiddenDriveList) MyBase.New Me.LogFSGetHiddenDriveList = LogFSGetHiddenDriveList End Sub End Class _ Partial Public Class LogFSGetHiddenDriveListResponse _ Public LogFSGetHiddenDriveListR As OpenControl.LogFSGetHiddenDriveListR Public Sub New() MyBase.New End Sub Public Sub New(ByVal LogFSGetHiddenDriveListR As OpenControl.LogFSGetHiddenDriveListR) MyBase.New Me.LogFSGetHiddenDriveListR = LogFSGetHiddenDriveListR End Sub End Class ''' _ Partial Public Class LogFSGetDrivePath Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private driveNameField As String Private securityLevelField As SECURITYLEVEL ''' _ Public Property DriveName() As String Get Return Me.driveNameField End Get Set Me.driveNameField = value Me.RaisePropertyChanged("DriveName") End Set End Property ''' _ Public Property SecurityLevel() As SECURITYLEVEL Get Return Me.securityLevelField End Get Set Me.securityLevelField = value Me.RaisePropertyChanged("SecurityLevel") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class LogFSGetDrivePathR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private drivePathField As String Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property DrivePath() As String Get Return Me.drivePathField End Get Set Me.drivePathField = value Me.RaisePropertyChanged("DrivePath") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class LogFSGetDrivePathRequest _ Public LogFSGetDrivePath As OpenControl.LogFSGetDrivePath Public Sub New() MyBase.New End Sub Public Sub New(ByVal LogFSGetDrivePath As OpenControl.LogFSGetDrivePath) MyBase.New Me.LogFSGetDrivePath = LogFSGetDrivePath End Sub End Class _ Partial Public Class LogFSGetDrivePathResponse _ Public LogFSGetDrivePathR As OpenControl.LogFSGetDrivePathR Public Sub New() MyBase.New End Sub Public Sub New(ByVal LogFSGetDrivePathR As OpenControl.LogFSGetDrivePathR) MyBase.New Me.LogFSGetDrivePathR = LogFSGetDrivePathR End Sub End Class ''' _ Partial Public Class LogFSAddDrive Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private driveNameField As String Private pathNameField As String Private temporaryField As Boolean Private securityLevelField As SECURITYLEVEL ''' _ Public Property DriveName() As String Get Return Me.driveNameField End Get Set Me.driveNameField = value Me.RaisePropertyChanged("DriveName") End Set End Property ''' _ Public Property PathName() As String Get Return Me.pathNameField End Get Set Me.pathNameField = value Me.RaisePropertyChanged("PathName") End Set End Property ''' _ Public Property Temporary() As Boolean Get Return Me.temporaryField End Get Set Me.temporaryField = value Me.RaisePropertyChanged("Temporary") End Set End Property ''' _ Public Property SecurityLevel() As SECURITYLEVEL Get Return Me.securityLevelField End Get Set Me.securityLevelField = value Me.RaisePropertyChanged("SecurityLevel") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class LogFSAddDriveR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class LogFSAddDriveRequest _ Public LogFSAddDrive As OpenControl.LogFSAddDrive Public Sub New() MyBase.New End Sub Public Sub New(ByVal LogFSAddDrive As OpenControl.LogFSAddDrive) MyBase.New Me.LogFSAddDrive = LogFSAddDrive End Sub End Class _ Partial Public Class LogFSAddDriveResponse _ Public LogFSAddDriveR As OpenControl.LogFSAddDriveR Public Sub New() MyBase.New End Sub Public Sub New(ByVal LogFSAddDriveR As OpenControl.LogFSAddDriveR) MyBase.New Me.LogFSAddDriveR = LogFSAddDriveR End Sub End Class ''' _ Partial Public Class LogFSRemoveDrive Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private driveNameField As String Private securityLevelField As SECURITYLEVEL ''' _ Public Property DriveName() As String Get Return Me.driveNameField End Get Set Me.driveNameField = value Me.RaisePropertyChanged("DriveName") End Set End Property ''' _ Public Property SecurityLevel() As SECURITYLEVEL Get Return Me.securityLevelField End Get Set Me.securityLevelField = value Me.RaisePropertyChanged("SecurityLevel") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class LogFSRemoveDriveR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class LogFSRemoveDriveRequest _ Public LogFSRemoveDrive As OpenControl.LogFSRemoveDrive Public Sub New() MyBase.New End Sub Public Sub New(ByVal LogFSRemoveDrive As OpenControl.LogFSRemoveDrive) MyBase.New Me.LogFSRemoveDrive = LogFSRemoveDrive End Sub End Class _ Partial Public Class LogFSRemoveDriveResponse _ Public LogFSRemoveDriveR As OpenControl.LogFSRemoveDriveR Public Sub New() MyBase.New End Sub Public Sub New(ByVal LogFSRemoveDriveR As OpenControl.LogFSRemoveDriveR) MyBase.New Me.LogFSRemoveDriveR = LogFSRemoveDriveR End Sub End Class ''' _ Partial Public Class LogFSReloadDriveList Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class LogFSReloadDriveListR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class LogFSReloadDriveListRequest _ Public LogFSReloadDriveList As OpenControl.LogFSReloadDriveList Public Sub New() MyBase.New End Sub Public Sub New(ByVal LogFSReloadDriveList As OpenControl.LogFSReloadDriveList) MyBase.New Me.LogFSReloadDriveList = LogFSReloadDriveList End Sub End Class _ Partial Public Class LogFSReloadDriveListResponse _ Public LogFSReloadDriveListR As OpenControl.LogFSReloadDriveListR Public Sub New() MyBase.New End Sub Public Sub New(ByVal LogFSReloadDriveListR As OpenControl.LogFSReloadDriveListR) MyBase.New Me.LogFSReloadDriveListR = LogFSReloadDriveListR End Sub End Class ''' _ Partial Public Class LogFSCreateDir Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private pathNameField As String ''' _ Public Property PathName() As String Get Return Me.pathNameField End Get Set Me.pathNameField = value Me.RaisePropertyChanged("PathName") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class LogFSCreateDirR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class LogFSCreateDirRequest _ Public LogFSCreateDir As OpenControl.LogFSCreateDir Public Sub New() MyBase.New End Sub Public Sub New(ByVal LogFSCreateDir As OpenControl.LogFSCreateDir) MyBase.New Me.LogFSCreateDir = LogFSCreateDir End Sub End Class _ Partial Public Class LogFSCreateDirResponse _ Public LogFSCreateDirR As OpenControl.LogFSCreateDirR Public Sub New() MyBase.New End Sub Public Sub New(ByVal LogFSCreateDirR As OpenControl.LogFSCreateDirR) MyBase.New Me.LogFSCreateDirR = LogFSCreateDirR End Sub End Class ''' _ Partial Public Class LogFSCreateFile Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private pathNameField As String ''' _ Public Property PathName() As String Get Return Me.pathNameField End Get Set Me.pathNameField = value Me.RaisePropertyChanged("PathName") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class LogFSCreateFileR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class LogFSCreateFileRequest _ Public LogFSCreateFile As OpenControl.LogFSCreateFile Public Sub New() MyBase.New End Sub Public Sub New(ByVal LogFSCreateFile As OpenControl.LogFSCreateFile) MyBase.New Me.LogFSCreateFile = LogFSCreateFile End Sub End Class _ Partial Public Class LogFSCreateFileResponse _ Public LogFSCreateFileR As OpenControl.LogFSCreateFileR Public Sub New() MyBase.New End Sub Public Sub New(ByVal LogFSCreateFileR As OpenControl.LogFSCreateFileR) MyBase.New Me.LogFSCreateFileR = LogFSCreateFileR End Sub End Class ''' _ Partial Public Class LogFSGetFileSize Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private pathNameField As String ''' _ Public Property PathName() As String Get Return Me.pathNameField End Get Set Me.pathNameField = value Me.RaisePropertyChanged("PathName") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class LogFSGetFileSizeR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private sizeField As UInteger Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property Size() As UInteger Get Return Me.sizeField End Get Set Me.sizeField = value Me.RaisePropertyChanged("Size") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class LogFSGetFileSizeRequest _ Public LogFSGetFileSize As OpenControl.LogFSGetFileSize Public Sub New() MyBase.New End Sub Public Sub New(ByVal LogFSGetFileSize As OpenControl.LogFSGetFileSize) MyBase.New Me.LogFSGetFileSize = LogFSGetFileSize End Sub End Class _ Partial Public Class LogFSGetFileSizeResponse _ Public LogFSGetFileSizeR As OpenControl.LogFSGetFileSizeR Public Sub New() MyBase.New End Sub Public Sub New(ByVal LogFSGetFileSizeR As OpenControl.LogFSGetFileSizeR) MyBase.New Me.LogFSGetFileSizeR = LogFSGetFileSizeR End Sub End Class ''' _ Partial Public Class LogFSGetFileAttrib Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private pathNameField As String ''' _ Public Property PathName() As String Get Return Me.pathNameField End Get Set Me.pathNameField = value Me.RaisePropertyChanged("PathName") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class LogFSGetFileAttribR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private attribField As UInteger Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property Attrib() As UInteger Get Return Me.attribField End Get Set Me.attribField = value Me.RaisePropertyChanged("Attrib") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class LogFSGetFileAttribRequest _ Public LogFSGetFileAttrib As OpenControl.LogFSGetFileAttrib Public Sub New() MyBase.New End Sub Public Sub New(ByVal LogFSGetFileAttrib As OpenControl.LogFSGetFileAttrib) MyBase.New Me.LogFSGetFileAttrib = LogFSGetFileAttrib End Sub End Class _ Partial Public Class LogFSGetFileAttribResponse _ Public LogFSGetFileAttribR As OpenControl.LogFSGetFileAttribR Public Sub New() MyBase.New End Sub Public Sub New(ByVal LogFSGetFileAttribR As OpenControl.LogFSGetFileAttribR) MyBase.New Me.LogFSGetFileAttribR = LogFSGetFileAttribR End Sub End Class ''' _ Partial Public Class LogFSSetFileAttrib Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private pathNameField As String Private attribField As UInteger ''' _ Public Property PathName() As String Get Return Me.pathNameField End Get Set Me.pathNameField = value Me.RaisePropertyChanged("PathName") End Set End Property ''' _ Public Property Attrib() As UInteger Get Return Me.attribField End Get Set Me.attribField = value Me.RaisePropertyChanged("Attrib") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class LogFSSetFileAttribR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class LogFSSetFileAttribRequest _ Public LogFSSetFileAttrib As OpenControl.LogFSSetFileAttrib Public Sub New() MyBase.New End Sub Public Sub New(ByVal LogFSSetFileAttrib As OpenControl.LogFSSetFileAttrib) MyBase.New Me.LogFSSetFileAttrib = LogFSSetFileAttrib End Sub End Class _ Partial Public Class LogFSSetFileAttribResponse _ Public LogFSSetFileAttribR As OpenControl.LogFSSetFileAttribR Public Sub New() MyBase.New End Sub Public Sub New(ByVal LogFSSetFileAttribR As OpenControl.LogFSSetFileAttribR) MyBase.New Me.LogFSSetFileAttribR = LogFSSetFileAttribR End Sub End Class ''' _ Partial Public Class LogFSChangeFileAttrib Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private pathNameField As String Private addField As UInteger Private removeField As UInteger ''' _ Public Property PathName() As String Get Return Me.pathNameField End Get Set Me.pathNameField = value Me.RaisePropertyChanged("PathName") End Set End Property ''' _ Public Property Add() As UInteger Get Return Me.addField End Get Set Me.addField = value Me.RaisePropertyChanged("Add") End Set End Property ''' _ Public Property Remove() As UInteger Get Return Me.removeField End Get Set Me.removeField = value Me.RaisePropertyChanged("Remove") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class LogFSChangeFileAttribR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class LogFSChangeFileAttribRequest _ Public LogFSChangeFileAttrib As OpenControl.LogFSChangeFileAttrib Public Sub New() MyBase.New End Sub Public Sub New(ByVal LogFSChangeFileAttrib As OpenControl.LogFSChangeFileAttrib) MyBase.New Me.LogFSChangeFileAttrib = LogFSChangeFileAttrib End Sub End Class _ Partial Public Class LogFSChangeFileAttribResponse _ Public LogFSChangeFileAttribR As OpenControl.LogFSChangeFileAttribR Public Sub New() MyBase.New End Sub Public Sub New(ByVal LogFSChangeFileAttribR As OpenControl.LogFSChangeFileAttribR) MyBase.New Me.LogFSChangeFileAttribR = LogFSChangeFileAttribR End Sub End Class ''' _ Partial Public Class LogFSFindFirst Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private fileNameField As String ''' _ Public Property FileName() As String Get Return Me.fileNameField End Get Set Me.fileNameField = value Me.RaisePropertyChanged("FileName") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class LogFSFindFirstR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private findDataField As FILEFINDDATA Private finderField As UInteger Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property FindData() As FILEFINDDATA Get Return Me.findDataField End Get Set Me.findDataField = value Me.RaisePropertyChanged("FindData") End Set End Property ''' _ Public Property Finder() As UInteger Get Return Me.finderField End Get Set Me.finderField = value Me.RaisePropertyChanged("Finder") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class LogFSFindFirstRequest _ Public LogFSFindFirst As OpenControl.LogFSFindFirst Public Sub New() MyBase.New End Sub Public Sub New(ByVal LogFSFindFirst As OpenControl.LogFSFindFirst) MyBase.New Me.LogFSFindFirst = LogFSFindFirst End Sub End Class _ Partial Public Class LogFSFindFirstResponse _ Public LogFSFindFirstR As OpenControl.LogFSFindFirstR Public Sub New() MyBase.New End Sub Public Sub New(ByVal LogFSFindFirstR As OpenControl.LogFSFindFirstR) MyBase.New Me.LogFSFindFirstR = LogFSFindFirstR End Sub End Class ''' _ Partial Public Class LogFSFindNext Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private finderField As UInteger ''' _ Public Property Finder() As UInteger Get Return Me.finderField End Get Set Me.finderField = value Me.RaisePropertyChanged("Finder") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class LogFSFindNextR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private findDataField As FILEFINDDATA Private foundField As Boolean Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property FindData() As FILEFINDDATA Get Return Me.findDataField End Get Set Me.findDataField = value Me.RaisePropertyChanged("FindData") End Set End Property ''' _ Public Property Found() As Boolean Get Return Me.foundField End Get Set Me.foundField = value Me.RaisePropertyChanged("Found") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class LogFSFindNextRequest _ Public LogFSFindNext As OpenControl.LogFSFindNext Public Sub New() MyBase.New End Sub Public Sub New(ByVal LogFSFindNext As OpenControl.LogFSFindNext) MyBase.New Me.LogFSFindNext = LogFSFindNext End Sub End Class _ Partial Public Class LogFSFindNextResponse _ Public LogFSFindNextR As OpenControl.LogFSFindNextR Public Sub New() MyBase.New End Sub Public Sub New(ByVal LogFSFindNextR As OpenControl.LogFSFindNextR) MyBase.New Me.LogFSFindNextR = LogFSFindNextR End Sub End Class ''' _ Partial Public Class LogFSFindClose Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private finderField As UInteger ''' _ Public Property Finder() As UInteger Get Return Me.finderField End Get Set Me.finderField = value Me.RaisePropertyChanged("Finder") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class LogFSFindCloseR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class LogFSFindCloseRequest _ Public LogFSFindClose As OpenControl.LogFSFindClose Public Sub New() MyBase.New End Sub Public Sub New(ByVal LogFSFindClose As OpenControl.LogFSFindClose) MyBase.New Me.LogFSFindClose = LogFSFindClose End Sub End Class _ Partial Public Class LogFSFindCloseResponse _ Public LogFSFindCloseR As OpenControl.LogFSFindCloseR Public Sub New() MyBase.New End Sub Public Sub New(ByVal LogFSFindCloseR As OpenControl.LogFSFindCloseR) MyBase.New Me.LogFSFindCloseR = LogFSFindCloseR End Sub End Class ''' _ Partial Public Class LogFSRemoveFile Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private pathNameField As String Private fileNameField As String ''' _ Public Property PathName() As String Get Return Me.pathNameField End Get Set Me.pathNameField = value Me.RaisePropertyChanged("PathName") End Set End Property ''' _ Public Property FileName() As String Get Return Me.fileNameField End Get Set Me.fileNameField = value Me.RaisePropertyChanged("FileName") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class LogFSRemoveFileR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class LogFSRemoveFileRequest _ Public LogFSRemoveFile As OpenControl.LogFSRemoveFile Public Sub New() MyBase.New End Sub Public Sub New(ByVal LogFSRemoveFile As OpenControl.LogFSRemoveFile) MyBase.New Me.LogFSRemoveFile = LogFSRemoveFile End Sub End Class _ Partial Public Class LogFSRemoveFileResponse _ Public LogFSRemoveFileR As OpenControl.LogFSRemoveFileR Public Sub New() MyBase.New End Sub Public Sub New(ByVal LogFSRemoveFileR As OpenControl.LogFSRemoveFileR) MyBase.New Me.LogFSRemoveFileR = LogFSRemoveFileR End Sub End Class ''' _ Partial Public Class LogFSRemoveDir Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private pathNameField As String ''' _ Public Property PathName() As String Get Return Me.pathNameField End Get Set Me.pathNameField = value Me.RaisePropertyChanged("PathName") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class LogFSRemoveDirR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class LogFSRemoveDirRequest _ Public LogFSRemoveDir As OpenControl.LogFSRemoveDir Public Sub New() MyBase.New End Sub Public Sub New(ByVal LogFSRemoveDir As OpenControl.LogFSRemoveDir) MyBase.New Me.LogFSRemoveDir = LogFSRemoveDir End Sub End Class _ Partial Public Class LogFSRemoveDirResponse _ Public LogFSRemoveDirR As OpenControl.LogFSRemoveDirR Public Sub New() MyBase.New End Sub Public Sub New(ByVal LogFSRemoveDirR As OpenControl.LogFSRemoveDirR) MyBase.New Me.LogFSRemoveDirR = LogFSRemoveDirR End Sub End Class ''' _ Partial Public Class LogFSRename Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private pathNameField As String Private newPathNameField As String ''' _ Public Property PathName() As String Get Return Me.pathNameField End Get Set Me.pathNameField = value Me.RaisePropertyChanged("PathName") End Set End Property ''' _ Public Property NewPathName() As String Get Return Me.newPathNameField End Get Set Me.newPathNameField = value Me.RaisePropertyChanged("NewPathName") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class LogFSRenameR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class LogFSRenameRequest _ Public LogFSRename As OpenControl.LogFSRename Public Sub New() MyBase.New End Sub Public Sub New(ByVal LogFSRename As OpenControl.LogFSRename) MyBase.New Me.LogFSRename = LogFSRename End Sub End Class _ Partial Public Class LogFSRenameResponse _ Public LogFSRenameR As OpenControl.LogFSRenameR Public Sub New() MyBase.New End Sub Public Sub New(ByVal LogFSRenameR As OpenControl.LogFSRenameR) MyBase.New Me.LogFSRenameR = LogFSRenameR End Sub End Class ''' _ Partial Public Class LogFSCopyFile Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private pathNameField As String Private newPathNameField As String Private failIfExistsField As Boolean ''' _ Public Property PathName() As String Get Return Me.pathNameField End Get Set Me.pathNameField = value Me.RaisePropertyChanged("PathName") End Set End Property ''' _ Public Property NewPathName() As String Get Return Me.newPathNameField End Get Set Me.newPathNameField = value Me.RaisePropertyChanged("NewPathName") End Set End Property ''' _ Public Property FailIfExists() As Boolean Get Return Me.failIfExistsField End Get Set Me.failIfExistsField = value Me.RaisePropertyChanged("FailIfExists") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class LogFSCopyFileR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class LogFSCopyFileRequest _ Public LogFSCopyFile As OpenControl.LogFSCopyFile Public Sub New() MyBase.New End Sub Public Sub New(ByVal LogFSCopyFile As OpenControl.LogFSCopyFile) MyBase.New Me.LogFSCopyFile = LogFSCopyFile End Sub End Class _ Partial Public Class LogFSCopyFileResponse _ Public LogFSCopyFileR As OpenControl.LogFSCopyFileR Public Sub New() MyBase.New End Sub Public Sub New(ByVal LogFSCopyFileR As OpenControl.LogFSCopyFileR) MyBase.New Me.LogFSCopyFileR = LogFSCopyFileR End Sub End Class ''' _ Partial Public Class LogFSGetInfo Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private pathNameField As String Private selectorField As UInteger Private itemCounterField As UShort ''' _ Public Property PathName() As String Get Return Me.pathNameField End Get Set Me.pathNameField = value Me.RaisePropertyChanged("PathName") End Set End Property ''' _ Public Property Selector() As UInteger Get Return Me.selectorField End Get Set Me.selectorField = value Me.RaisePropertyChanged("Selector") End Set End Property ''' _ Public Property ItemCounter() As UShort Get Return Me.itemCounterField End Get Set Me.itemCounterField = value Me.RaisePropertyChanged("ItemCounter") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class LogFSGetInfoR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private bufferField() As UInteger Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property Buffer() As UInteger() Get Return Me.bufferField End Get Set Me.bufferField = value Me.RaisePropertyChanged("Buffer") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class LogFSGetInfoRequest _ Public LogFSGetInfo As OpenControl.LogFSGetInfo Public Sub New() MyBase.New End Sub Public Sub New(ByVal LogFSGetInfo As OpenControl.LogFSGetInfo) MyBase.New Me.LogFSGetInfo = LogFSGetInfo End Sub End Class _ Partial Public Class LogFSGetInfoResponse _ Public LogFSGetInfoR As OpenControl.LogFSGetInfoR Public Sub New() MyBase.New End Sub Public Sub New(ByVal LogFSGetInfoR As OpenControl.LogFSGetInfoR) MyBase.New Me.LogFSGetInfoR = LogFSGetInfoR End Sub End Class ''' _ Partial Public Class GetAvailableCustomEvents Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private maxEventsField As UShort ''' _ Public Property MaxEvents() As UShort Get Return Me.maxEventsField End Get Set Me.maxEventsField = value Me.RaisePropertyChanged("MaxEvents") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class GetAvailableCustomEventsR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private numEventsField As UShort Private eventDataField() As MONCUSTOMEVENTINFO Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property NumEvents() As UShort Get Return Me.numEventsField End Get Set Me.numEventsField = value Me.RaisePropertyChanged("NumEvents") End Set End Property ''' _ Public Property EventData() As MONCUSTOMEVENTINFO() Get Return Me.eventDataField End Get Set Me.eventDataField = value Me.RaisePropertyChanged("EventData") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class GetAvailableCustomEventsRequest _ Public GetAvailableCustomEvents As OpenControl.GetAvailableCustomEvents Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetAvailableCustomEvents As OpenControl.GetAvailableCustomEvents) MyBase.New Me.GetAvailableCustomEvents = GetAvailableCustomEvents End Sub End Class _ Partial Public Class GetAvailableCustomEventsResponse _ Public GetAvailableCustomEventsR As OpenControl.GetAvailableCustomEventsR Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetAvailableCustomEventsR As OpenControl.GetAvailableCustomEventsR) MyBase.New Me.GetAvailableCustomEventsR = GetAvailableCustomEventsR End Sub End Class ''' _ Partial Public Class GetSysTick Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class GetSysTickR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private sysTickField As Double Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property SysTick() As Double Get Return Me.sysTickField End Get Set Me.sysTickField = value Me.RaisePropertyChanged("SysTick") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class GetSysTickRequest _ Public GetSysTick As OpenControl.GetSysTick Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetSysTick As OpenControl.GetSysTick) MyBase.New Me.GetSysTick = GetSysTick End Sub End Class _ Partial Public Class GetSysTickResponse _ Public GetSysTickR As OpenControl.GetSysTickR Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetSysTickR As OpenControl.GetSysTickR) MyBase.New Me.GetSysTickR = GetSysTickR End Sub End Class ''' _ Partial Public Class GetProcessConfNum Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class GetProcessConfNumR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private processConfNumField As Byte Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ProcessConfNum() As Byte Get Return Me.processConfNumField End Get Set Me.processConfNumField = value Me.RaisePropertyChanged("ProcessConfNum") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class GetProcessConfNumRequest _ Public GetProcessConfNum As OpenControl.GetProcessConfNum Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetProcessConfNum As OpenControl.GetProcessConfNum) MyBase.New Me.GetProcessConfNum = GetProcessConfNum End Sub End Class _ Partial Public Class GetProcessConfNumResponse _ Public GetProcessConfNumR As OpenControl.GetProcessConfNumR Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetProcessConfNumR As OpenControl.GetProcessConfNumR) MyBase.New Me.GetProcessConfNumR = GetProcessConfNumR End Sub End Class ''' _ Partial Public Class MonOpenChannel Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private synchronizedField As Boolean ''' _ Public Property Synchronized() As Boolean Get Return Me.synchronizedField End Get Set Me.synchronizedField = value Me.RaisePropertyChanged("Synchronized") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class MonOpenChannelR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private channelIDField As UInteger Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ChannelID() As UInteger Get Return Me.channelIDField End Get Set Me.channelIDField = value Me.RaisePropertyChanged("ChannelID") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class MonOpenChannelRequest _ Public MonOpenChannel As OpenControl.MonOpenChannel Public Sub New() MyBase.New End Sub Public Sub New(ByVal MonOpenChannel As OpenControl.MonOpenChannel) MyBase.New Me.MonOpenChannel = MonOpenChannel End Sub End Class _ Partial Public Class MonOpenChannelResponse _ Public MonOpenChannelR As OpenControl.MonOpenChannelR Public Sub New() MyBase.New End Sub Public Sub New(ByVal MonOpenChannelR As OpenControl.MonOpenChannelR) MyBase.New Me.MonOpenChannelR = MonOpenChannelR End Sub End Class ''' _ Partial Public Class MonCloseChannel Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private channelIDField As UInteger ''' _ Public Property ChannelID() As UInteger Get Return Me.channelIDField End Get Set Me.channelIDField = value Me.RaisePropertyChanged("ChannelID") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class MonCloseChannelR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class MonCloseChannelRequest _ Public MonCloseChannel As OpenControl.MonCloseChannel Public Sub New() MyBase.New End Sub Public Sub New(ByVal MonCloseChannel As OpenControl.MonCloseChannel) MyBase.New Me.MonCloseChannel = MonCloseChannel End Sub End Class _ Partial Public Class MonCloseChannelResponse _ Public MonCloseChannelR As OpenControl.MonCloseChannelR Public Sub New() MyBase.New End Sub Public Sub New(ByVal MonCloseChannelR As OpenControl.MonCloseChannelR) MyBase.New Me.MonCloseChannelR = MonCloseChannelR End Sub End Class ''' _ Partial Public Class MonAddVariable Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private channelIDField As UInteger Private varDescrField As MONVARDESCR ''' _ Public Property ChannelID() As UInteger Get Return Me.channelIDField End Get Set Me.channelIDField = value Me.RaisePropertyChanged("ChannelID") End Set End Property ''' _ Public Property VarDescr() As MONVARDESCR Get Return Me.varDescrField End Get Set Me.varDescrField = value Me.RaisePropertyChanged("VarDescr") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class MonAddVariableR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private variableIDField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property VariableID() As UShort Get Return Me.variableIDField End Get Set Me.variableIDField = value Me.RaisePropertyChanged("VariableID") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class MonAddVariableRequest _ Public MonAddVariable As OpenControl.MonAddVariable Public Sub New() MyBase.New End Sub Public Sub New(ByVal MonAddVariable As OpenControl.MonAddVariable) MyBase.New Me.MonAddVariable = MonAddVariable End Sub End Class _ Partial Public Class MonAddVariableResponse _ Public MonAddVariableR As OpenControl.MonAddVariableR Public Sub New() MyBase.New End Sub Public Sub New(ByVal MonAddVariableR As OpenControl.MonAddVariableR) MyBase.New Me.MonAddVariableR = MonAddVariableR End Sub End Class ''' _ Partial Public Class MonDeleteVariable Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private channelIDField As UInteger Private variableIDField As UShort ''' _ Public Property ChannelID() As UInteger Get Return Me.channelIDField End Get Set Me.channelIDField = value Me.RaisePropertyChanged("ChannelID") End Set End Property ''' _ Public Property VariableID() As UShort Get Return Me.variableIDField End Get Set Me.variableIDField = value Me.RaisePropertyChanged("VariableID") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class MonDeleteVariableR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class MonDeleteVariableRequest _ Public MonDeleteVariable As OpenControl.MonDeleteVariable Public Sub New() MyBase.New End Sub Public Sub New(ByVal MonDeleteVariable As OpenControl.MonDeleteVariable) MyBase.New Me.MonDeleteVariable = MonDeleteVariable End Sub End Class _ Partial Public Class MonDeleteVariableResponse _ Public MonDeleteVariableR As OpenControl.MonDeleteVariableR Public Sub New() MyBase.New End Sub Public Sub New(ByVal MonDeleteVariableR As OpenControl.MonDeleteVariableR) MyBase.New Me.MonDeleteVariableR = MonDeleteVariableR End Sub End Class ''' _ Partial Public Class MonStartSampling Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private channelIDField As UInteger ''' _ Public Property ChannelID() As UInteger Get Return Me.channelIDField End Get Set Me.channelIDField = value Me.RaisePropertyChanged("ChannelID") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class MonStartSamplingR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class MonStartSamplingRequest _ Public MonStartSampling As OpenControl.MonStartSampling Public Sub New() MyBase.New End Sub Public Sub New(ByVal MonStartSampling As OpenControl.MonStartSampling) MyBase.New Me.MonStartSampling = MonStartSampling End Sub End Class _ Partial Public Class MonStartSamplingResponse _ Public MonStartSamplingR As OpenControl.MonStartSamplingR Public Sub New() MyBase.New End Sub Public Sub New(ByVal MonStartSamplingR As OpenControl.MonStartSamplingR) MyBase.New Me.MonStartSamplingR = MonStartSamplingR End Sub End Class ''' _ Partial Public Class MonStopSampling Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private channelIDField As UInteger ''' _ Public Property ChannelID() As UInteger Get Return Me.channelIDField End Get Set Me.channelIDField = value Me.RaisePropertyChanged("ChannelID") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class MonStopSamplingR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class MonStopSamplingRequest _ Public MonStopSampling As OpenControl.MonStopSampling Public Sub New() MyBase.New End Sub Public Sub New(ByVal MonStopSampling As OpenControl.MonStopSampling) MyBase.New Me.MonStopSampling = MonStopSampling End Sub End Class _ Partial Public Class MonStopSamplingResponse _ Public MonStopSamplingR As OpenControl.MonStopSamplingR Public Sub New() MyBase.New End Sub Public Sub New(ByVal MonStopSamplingR As OpenControl.MonStopSamplingR) MyBase.New Me.MonStopSamplingR = MonStopSamplingR End Sub End Class ''' _ Partial Public Class MonGetVariable Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private channelIDField As UInteger Private variableIDField As UShort Private maxSamplesField As UShort ''' _ Public Property ChannelID() As UInteger Get Return Me.channelIDField End Get Set Me.channelIDField = value Me.RaisePropertyChanged("ChannelID") End Set End Property ''' _ Public Property VariableID() As UShort Get Return Me.variableIDField End Get Set Me.variableIDField = value Me.RaisePropertyChanged("VariableID") End Set End Property ''' _ Public Property MaxSamples() As UShort Get Return Me.maxSamplesField End Get Set Me.maxSamplesField = value Me.RaisePropertyChanged("MaxSamples") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class MonGetVariableR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private numSampleReadField As UShort Private dataBufferField() As Double Private timeBufferField() As Long Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property NumSampleRead() As UShort Get Return Me.numSampleReadField End Get Set Me.numSampleReadField = value Me.RaisePropertyChanged("NumSampleRead") End Set End Property ''' _ Public Property DataBuffer() As Double() Get Return Me.dataBufferField End Get Set Me.dataBufferField = value Me.RaisePropertyChanged("DataBuffer") End Set End Property ''' _ Public Property TimeBuffer() As Long() Get Return Me.timeBufferField End Get Set Me.timeBufferField = value Me.RaisePropertyChanged("TimeBuffer") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class MonGetVariableRequest _ Public MonGetVariable As OpenControl.MonGetVariable Public Sub New() MyBase.New End Sub Public Sub New(ByVal MonGetVariable As OpenControl.MonGetVariable) MyBase.New Me.MonGetVariable = MonGetVariable End Sub End Class _ Partial Public Class MonGetVariableResponse _ Public MonGetVariableR As OpenControl.MonGetVariableR Public Sub New() MyBase.New End Sub Public Sub New(ByVal MonGetVariableR As OpenControl.MonGetVariableR) MyBase.New Me.MonGetVariableR = MonGetVariableR End Sub End Class ''' _ Partial Public Class CheckHistory Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class CheckHistoryR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private thisBootMsgCounterField() As UInteger Private allBootMsgCounterField() As UInteger Private thisBootIDField() As UInteger Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ThisBootMsgCounter() As UInteger() Get Return Me.thisBootMsgCounterField End Get Set Me.thisBootMsgCounterField = value Me.RaisePropertyChanged("ThisBootMsgCounter") End Set End Property ''' _ Public Property AllBootMsgCounter() As UInteger() Get Return Me.allBootMsgCounterField End Get Set Me.allBootMsgCounterField = value Me.RaisePropertyChanged("AllBootMsgCounter") End Set End Property ''' _ Public Property ThisBootID() As UInteger() Get Return Me.thisBootIDField End Get Set Me.thisBootIDField = value Me.RaisePropertyChanged("ThisBootID") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class CheckHistoryRequest _ Public CheckHistory As OpenControl.CheckHistory Public Sub New() MyBase.New End Sub Public Sub New(ByVal CheckHistory As OpenControl.CheckHistory) MyBase.New Me.CheckHistory = CheckHistory End Sub End Class _ Partial Public Class CheckHistoryResponse _ Public CheckHistoryR As OpenControl.CheckHistoryR Public Sub New() MyBase.New End Sub Public Sub New(ByVal CheckHistoryR As OpenControl.CheckHistoryR) MyBase.New Me.CheckHistoryR = CheckHistoryR End Sub End Class ''' _ Partial Public Class ReadHistoryEmergMsg Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private readModeField As Integer Private recNumField As UInteger ''' _ Public Property ReadMode() As Integer Get Return Me.readModeField End Get Set Me.readModeField = value Me.RaisePropertyChanged("ReadMode") End Set End Property ''' _ Public Property RecNum() As UInteger Get Return Me.recNumField End Get Set Me.recNumField = value Me.RaisePropertyChanged("RecNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class ReadHistoryEmergMsgR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private dataField As MSGEMERGENCY Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property Data() As MSGEMERGENCY Get Return Me.dataField End Get Set Me.dataField = value Me.RaisePropertyChanged("Data") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class ReadHistoryEmergMsgRequest _ Public ReadHistoryEmergMsg As OpenControl.ReadHistoryEmergMsg Public Sub New() MyBase.New End Sub Public Sub New(ByVal ReadHistoryEmergMsg As OpenControl.ReadHistoryEmergMsg) MyBase.New Me.ReadHistoryEmergMsg = ReadHistoryEmergMsg End Sub End Class _ Partial Public Class ReadHistoryEmergMsgResponse _ Public ReadHistoryEmergMsgR As OpenControl.ReadHistoryEmergMsgR Public Sub New() MyBase.New End Sub Public Sub New(ByVal ReadHistoryEmergMsgR As OpenControl.ReadHistoryEmergMsgR) MyBase.New Me.ReadHistoryEmergMsgR = ReadHistoryEmergMsgR End Sub End Class ''' _ Partial Public Class ReadHistoryErrorMsg Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private readModeField As Integer Private recNumField As UInteger ''' _ Public Property ReadMode() As Integer Get Return Me.readModeField End Get Set Me.readModeField = value Me.RaisePropertyChanged("ReadMode") End Set End Property ''' _ Public Property RecNum() As UInteger Get Return Me.recNumField End Get Set Me.recNumField = value Me.RaisePropertyChanged("RecNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class ReadHistoryErrorMsgR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private dataField As MSGERROR Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property Data() As MSGERROR Get Return Me.dataField End Get Set Me.dataField = value Me.RaisePropertyChanged("Data") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class ReadHistoryErrorMsgRequest _ Public ReadHistoryErrorMsg As OpenControl.ReadHistoryErrorMsg Public Sub New() MyBase.New End Sub Public Sub New(ByVal ReadHistoryErrorMsg As OpenControl.ReadHistoryErrorMsg) MyBase.New Me.ReadHistoryErrorMsg = ReadHistoryErrorMsg End Sub End Class _ Partial Public Class ReadHistoryErrorMsgResponse _ Public ReadHistoryErrorMsgR As OpenControl.ReadHistoryErrorMsgR Public Sub New() MyBase.New End Sub Public Sub New(ByVal ReadHistoryErrorMsgR As OpenControl.ReadHistoryErrorMsgR) MyBase.New Me.ReadHistoryErrorMsgR = ReadHistoryErrorMsgR End Sub End Class ''' _ Partial Public Class ReadHistoryLogMsg Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private noHistoryField As Integer Private readModeField As Integer Private recNumField As UInteger ''' _ Public Property NoHistory() As Integer Get Return Me.noHistoryField End Get Set Me.noHistoryField = value Me.RaisePropertyChanged("NoHistory") End Set End Property ''' _ Public Property ReadMode() As Integer Get Return Me.readModeField End Get Set Me.readModeField = value Me.RaisePropertyChanged("ReadMode") End Set End Property ''' _ Public Property RecNum() As UInteger Get Return Me.recNumField End Get Set Me.recNumField = value Me.RaisePropertyChanged("RecNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class ReadHistoryLogMsgR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private dataField As MSGLOGS Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property Data() As MSGLOGS Get Return Me.dataField End Get Set Me.dataField = value Me.RaisePropertyChanged("Data") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class ReadHistoryLogMsgRequest _ Public ReadHistoryLogMsg As OpenControl.ReadHistoryLogMsg Public Sub New() MyBase.New End Sub Public Sub New(ByVal ReadHistoryLogMsg As OpenControl.ReadHistoryLogMsg) MyBase.New Me.ReadHistoryLogMsg = ReadHistoryLogMsg End Sub End Class _ Partial Public Class ReadHistoryLogMsgResponse _ Public ReadHistoryLogMsgR As OpenControl.ReadHistoryLogMsgR Public Sub New() MyBase.New End Sub Public Sub New(ByVal ReadHistoryLogMsgR As OpenControl.ReadHistoryLogMsgR) MyBase.New Me.ReadHistoryLogMsgR = ReadHistoryLogMsgR End Sub End Class ''' _ Partial Public Class ReadHistoryAnomalyMsg Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private readModeField As Integer Private recNumField As UInteger ''' _ Public Property ReadMode() As Integer Get Return Me.readModeField End Get Set Me.readModeField = value Me.RaisePropertyChanged("ReadMode") End Set End Property ''' _ Public Property RecNum() As UInteger Get Return Me.recNumField End Get Set Me.recNumField = value Me.RaisePropertyChanged("RecNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class ReadHistoryAnomalyMsgR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private dataField As MSGANOMALY Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property Data() As MSGANOMALY Get Return Me.dataField End Get Set Me.dataField = value Me.RaisePropertyChanged("Data") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class ReadHistoryAnomalyMsgRequest _ Public ReadHistoryAnomalyMsg As OpenControl.ReadHistoryAnomalyMsg Public Sub New() MyBase.New End Sub Public Sub New(ByVal ReadHistoryAnomalyMsg As OpenControl.ReadHistoryAnomalyMsg) MyBase.New Me.ReadHistoryAnomalyMsg = ReadHistoryAnomalyMsg End Sub End Class _ Partial Public Class ReadHistoryAnomalyMsgResponse _ Public ReadHistoryAnomalyMsgR As OpenControl.ReadHistoryAnomalyMsgR Public Sub New() MyBase.New End Sub Public Sub New(ByVal ReadHistoryAnomalyMsgR As OpenControl.ReadHistoryAnomalyMsgR) MyBase.New Me.ReadHistoryAnomalyMsgR = ReadHistoryAnomalyMsgR End Sub End Class ''' _ Partial Public Class ReadCurrentErrorMsg Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private processField As UShort ''' _ Public Property Process() As UShort Get Return Me.processField End Get Set Me.processField = value Me.RaisePropertyChanged("Process") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class ReadCurrentErrorMsgR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private dataField As MSGERROR Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property Data() As MSGERROR Get Return Me.dataField End Get Set Me.dataField = value Me.RaisePropertyChanged("Data") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class ReadCurrentErrorMsgRequest _ Public ReadCurrentErrorMsg As OpenControl.ReadCurrentErrorMsg Public Sub New() MyBase.New End Sub Public Sub New(ByVal ReadCurrentErrorMsg As OpenControl.ReadCurrentErrorMsg) MyBase.New Me.ReadCurrentErrorMsg = ReadCurrentErrorMsg End Sub End Class _ Partial Public Class ReadCurrentErrorMsgResponse _ Public ReadCurrentErrorMsgR As OpenControl.ReadCurrentErrorMsgR Public Sub New() MyBase.New End Sub Public Sub New(ByVal ReadCurrentErrorMsgR As OpenControl.ReadCurrentErrorMsgR) MyBase.New Me.ReadCurrentErrorMsgR = ReadCurrentErrorMsgR End Sub End Class ''' _ Partial Public Class ReadCurrentEmergMsg Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private processField As UShort ''' _ Public Property Process() As UShort Get Return Me.processField End Get Set Me.processField = value Me.RaisePropertyChanged("Process") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class ReadCurrentEmergMsgR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private dataField As MSGEMERGENCY Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property Data() As MSGEMERGENCY Get Return Me.dataField End Get Set Me.dataField = value Me.RaisePropertyChanged("Data") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class ReadCurrentEmergMsgRequest _ Public ReadCurrentEmergMsg As OpenControl.ReadCurrentEmergMsg Public Sub New() MyBase.New End Sub Public Sub New(ByVal ReadCurrentEmergMsg As OpenControl.ReadCurrentEmergMsg) MyBase.New Me.ReadCurrentEmergMsg = ReadCurrentEmergMsg End Sub End Class _ Partial Public Class ReadCurrentEmergMsgResponse _ Public ReadCurrentEmergMsgR As OpenControl.ReadCurrentEmergMsgR Public Sub New() MyBase.New End Sub Public Sub New(ByVal ReadCurrentEmergMsgR As OpenControl.ReadCurrentEmergMsgR) MyBase.New Me.ReadCurrentEmergMsgR = ReadCurrentEmergMsgR End Sub End Class ''' _ Partial Public Class ReadCurrentAnomalyMsg Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class ReadCurrentAnomalyMsgR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private dataField As MSGANOMALY Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property Data() As MSGANOMALY Get Return Me.dataField End Get Set Me.dataField = value Me.RaisePropertyChanged("Data") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class ReadCurrentAnomalyMsgRequest _ Public ReadCurrentAnomalyMsg As OpenControl.ReadCurrentAnomalyMsg Public Sub New() MyBase.New End Sub Public Sub New(ByVal ReadCurrentAnomalyMsg As OpenControl.ReadCurrentAnomalyMsg) MyBase.New Me.ReadCurrentAnomalyMsg = ReadCurrentAnomalyMsg End Sub End Class _ Partial Public Class ReadCurrentAnomalyMsgResponse _ Public ReadCurrentAnomalyMsgR As OpenControl.ReadCurrentAnomalyMsgR Public Sub New() MyBase.New End Sub Public Sub New(ByVal ReadCurrentAnomalyMsgR As OpenControl.ReadCurrentAnomalyMsgR) MyBase.New Me.ReadCurrentAnomalyMsgR = ReadCurrentAnomalyMsgR End Sub End Class ''' _ Partial Public Class GetPTechSizes Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private processField As UShort ''' _ Public Property Process() As UShort Get Return Me.processField End Get Set Me.processField = value Me.RaisePropertyChanged("Process") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class GetPTechSizesR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private ind1Field As UShort Private ind2Field As UShort Private ind3Field As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property Ind1() As UShort Get Return Me.ind1Field End Get Set Me.ind1Field = value Me.RaisePropertyChanged("Ind1") End Set End Property ''' _ Public Property Ind2() As UShort Get Return Me.ind2Field End Get Set Me.ind2Field = value Me.RaisePropertyChanged("Ind2") End Set End Property ''' _ Public Property Ind3() As UShort Get Return Me.ind3Field End Get Set Me.ind3Field = value Me.RaisePropertyChanged("Ind3") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class GetPTechSizesRequest _ Public GetPTechSizes As OpenControl.GetPTechSizes Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetPTechSizes As OpenControl.GetPTechSizes) MyBase.New Me.GetPTechSizes = GetPTechSizes End Sub End Class _ Partial Public Class GetPTechSizesResponse _ Public GetPTechSizesR As OpenControl.GetPTechSizesR Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetPTechSizesR As OpenControl.GetPTechSizesR) MyBase.New Me.GetPTechSizesR = GetPTechSizesR End Sub End Class ''' _ Partial Public Class LoadPTech Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private processField As UShort Private pPPathNameField As String Private writeModeField As UShort Private sheetField As UShort Private lineField As UShort Private columnField As UShort Private numVarField As UShort Private dataField() As Double ''' _ Public Property Process() As UShort Get Return Me.processField End Get Set Me.processField = value Me.RaisePropertyChanged("Process") End Set End Property ''' _ Public Property PPPathName() As String Get Return Me.pPPathNameField End Get Set Me.pPPathNameField = value Me.RaisePropertyChanged("PPPathName") End Set End Property ''' _ Public Property WriteMode() As UShort Get Return Me.writeModeField End Get Set Me.writeModeField = value Me.RaisePropertyChanged("WriteMode") End Set End Property ''' _ Public Property Sheet() As UShort Get Return Me.sheetField End Get Set Me.sheetField = value Me.RaisePropertyChanged("Sheet") End Set End Property ''' _ Public Property Line() As UShort Get Return Me.lineField End Get Set Me.lineField = value Me.RaisePropertyChanged("Line") End Set End Property ''' _ Public Property Column() As UShort Get Return Me.columnField End Get Set Me.columnField = value Me.RaisePropertyChanged("Column") End Set End Property ''' _ Public Property NumVar() As UShort Get Return Me.numVarField End Get Set Me.numVarField = value Me.RaisePropertyChanged("NumVar") End Set End Property ''' _ Public Property Data() As Double() Get Return Me.dataField End Get Set Me.dataField = value Me.RaisePropertyChanged("Data") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class LoadPTechR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class LoadPTechRequest _ Public LoadPTech As OpenControl.LoadPTech Public Sub New() MyBase.New End Sub Public Sub New(ByVal LoadPTech As OpenControl.LoadPTech) MyBase.New Me.LoadPTech = LoadPTech End Sub End Class _ Partial Public Class LoadPTechResponse _ Public LoadPTechR As OpenControl.LoadPTechR Public Sub New() MyBase.New End Sub Public Sub New(ByVal LoadPTechR As OpenControl.LoadPTechR) MyBase.New Me.LoadPTechR = LoadPTechR End Sub End Class ''' _ Partial Public Class GetMarkerInfo Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private processField As UShort Private requestField As Byte ''' _ Public Property Process() As UShort Get Return Me.processField End Get Set Me.processField = value Me.RaisePropertyChanged("Process") End Set End Property ''' _ Public Property Request() As Byte Get Return Me.requestField End Get Set Me.requestField = value Me.RaisePropertyChanged("Request") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class GetMarkerInfoR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private markerInfoField As MARKERINFO Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property MarkerInfo() As MARKERINFO Get Return Me.markerInfoField End Get Set Me.markerInfoField = value Me.RaisePropertyChanged("MarkerInfo") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class GetMarkerInfoRequest _ Public GetMarkerInfo As OpenControl.GetMarkerInfo Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetMarkerInfo As OpenControl.GetMarkerInfo) MyBase.New Me.GetMarkerInfo = GetMarkerInfo End Sub End Class _ Partial Public Class GetMarkerInfoResponse _ Public GetMarkerInfoR As OpenControl.GetMarkerInfoR Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetMarkerInfoR As OpenControl.GetMarkerInfoR) MyBase.New Me.GetMarkerInfoR = GetMarkerInfoR End Sub End Class ''' _ Partial Public Class ManagePartProgram Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private processField As UShort Private modeField As UShort Private pPPathField As String ''' _ Public Property Process() As UShort Get Return Me.processField End Get Set Me.processField = value Me.RaisePropertyChanged("Process") End Set End Property ''' _ Public Property Mode() As UShort Get Return Me.modeField End Get Set Me.modeField = value Me.RaisePropertyChanged("Mode") End Set End Property ''' _ Public Property PPPath() As String Get Return Me.pPPathField End Get Set Me.pPPathField = value Me.RaisePropertyChanged("PPPath") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class ManagePartProgramR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errStringField() As Byte Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrString() As Byte() Get Return Me.errStringField End Get Set Me.errStringField = value Me.RaisePropertyChanged("ErrString") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class ManagePartProgramRequest _ Public ManagePartProgram As OpenControl.ManagePartProgram Public Sub New() MyBase.New End Sub Public Sub New(ByVal ManagePartProgram As OpenControl.ManagePartProgram) MyBase.New Me.ManagePartProgram = ManagePartProgram End Sub End Class _ Partial Public Class ManagePartProgramResponse _ Public ManagePartProgramR As OpenControl.ManagePartProgramR Public Sub New() MyBase.New End Sub Public Sub New(ByVal ManagePartProgramR As OpenControl.ManagePartProgramR) MyBase.New Me.ManagePartProgramR = ManagePartProgramR End Sub End Class ''' _ Partial Public Class LogFSOpenFile Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private pathNameField As String Private writeModeField As Boolean Private dOSDateLastWriteField As UShort Private dOSTimeLastWriteField As UShort ''' _ Public Property PathName() As String Get Return Me.pathNameField End Get Set Me.pathNameField = value Me.RaisePropertyChanged("PathName") End Set End Property ''' _ Public Property WriteMode() As Boolean Get Return Me.writeModeField End Get Set Me.writeModeField = value Me.RaisePropertyChanged("WriteMode") End Set End Property ''' _ Public Property DOSDateLastWrite() As UShort Get Return Me.dOSDateLastWriteField End Get Set Me.dOSDateLastWriteField = value Me.RaisePropertyChanged("DOSDateLastWrite") End Set End Property ''' _ Public Property DOSTimeLastWrite() As UShort Get Return Me.dOSTimeLastWriteField End Get Set Me.dOSTimeLastWriteField = value Me.RaisePropertyChanged("DOSTimeLastWrite") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class LogFSOpenFileR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private fileIDField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property FileID() As UShort Get Return Me.fileIDField End Get Set Me.fileIDField = value Me.RaisePropertyChanged("FileID") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class LogFSOpenFileRequest _ Public LogFSOpenFile As OpenControl.LogFSOpenFile Public Sub New() MyBase.New End Sub Public Sub New(ByVal LogFSOpenFile As OpenControl.LogFSOpenFile) MyBase.New Me.LogFSOpenFile = LogFSOpenFile End Sub End Class _ Partial Public Class LogFSOpenFileResponse _ Public LogFSOpenFileR As OpenControl.LogFSOpenFileR Public Sub New() MyBase.New End Sub Public Sub New(ByVal LogFSOpenFileR As OpenControl.LogFSOpenFileR) MyBase.New Me.LogFSOpenFileR = LogFSOpenFileR End Sub End Class ''' _ Partial Public Class LogFSCloseFile Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private fileIDField As UShort Private transactionField As UShort ''' _ Public Property FileID() As UShort Get Return Me.fileIDField End Get Set Me.fileIDField = value Me.RaisePropertyChanged("FileID") End Set End Property ''' _ Public Property Transaction() As UShort Get Return Me.transactionField End Get Set Me.transactionField = value Me.RaisePropertyChanged("Transaction") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class LogFSCloseFileR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private fileIDField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property FileID() As UShort Get Return Me.fileIDField End Get Set Me.fileIDField = value Me.RaisePropertyChanged("FileID") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class LogFSCloseFileRequest _ Public LogFSCloseFile As OpenControl.LogFSCloseFile Public Sub New() MyBase.New End Sub Public Sub New(ByVal LogFSCloseFile As OpenControl.LogFSCloseFile) MyBase.New Me.LogFSCloseFile = LogFSCloseFile End Sub End Class _ Partial Public Class LogFSCloseFileResponse _ Public LogFSCloseFileR As OpenControl.LogFSCloseFileR Public Sub New() MyBase.New End Sub Public Sub New(ByVal LogFSCloseFileR As OpenControl.LogFSCloseFileR) MyBase.New Me.LogFSCloseFileR = LogFSCloseFileR End Sub End Class ''' _ Partial Public Class LogFSWriteRecord Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private fileIDField As UShort Private transactionField As UShort Private recordLenField As UInteger Private recordField() As Byte ''' _ Public Property FileID() As UShort Get Return Me.fileIDField End Get Set Me.fileIDField = value Me.RaisePropertyChanged("FileID") End Set End Property ''' _ Public Property Transaction() As UShort Get Return Me.transactionField End Get Set Me.transactionField = value Me.RaisePropertyChanged("Transaction") End Set End Property ''' _ Public Property RecordLen() As UInteger Get Return Me.recordLenField End Get Set Me.recordLenField = value Me.RaisePropertyChanged("RecordLen") End Set End Property ''' _ Public Property Record() As Byte() Get Return Me.recordField End Get Set Me.recordField = value Me.RaisePropertyChanged("Record") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class LogFSWriteRecordR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class LogFSWriteRecordRequest _ Public LogFSWriteRecord As OpenControl.LogFSWriteRecord Public Sub New() MyBase.New End Sub Public Sub New(ByVal LogFSWriteRecord As OpenControl.LogFSWriteRecord) MyBase.New Me.LogFSWriteRecord = LogFSWriteRecord End Sub End Class _ Partial Public Class LogFSWriteRecordResponse _ Public LogFSWriteRecordR As OpenControl.LogFSWriteRecordR Public Sub New() MyBase.New End Sub Public Sub New(ByVal LogFSWriteRecordR As OpenControl.LogFSWriteRecordR) MyBase.New Me.LogFSWriteRecordR = LogFSWriteRecordR End Sub End Class ''' _ Partial Public Class LogFSReadRecord Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private fileIDField As UShort Private transactionField As UShort Private recordLenField As UInteger ''' _ Public Property FileID() As UShort Get Return Me.fileIDField End Get Set Me.fileIDField = value Me.RaisePropertyChanged("FileID") End Set End Property ''' _ Public Property Transaction() As UShort Get Return Me.transactionField End Get Set Me.transactionField = value Me.RaisePropertyChanged("Transaction") End Set End Property ''' _ Public Property RecordLen() As UInteger Get Return Me.recordLenField End Get Set Me.recordLenField = value Me.RaisePropertyChanged("RecordLen") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class LogFSReadRecordR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private dataSizeField As UInteger Private recordField() As Byte Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property DataSize() As UInteger Get Return Me.dataSizeField End Get Set Me.dataSizeField = value Me.RaisePropertyChanged("DataSize") End Set End Property ''' _ Public Property Record() As Byte() Get Return Me.recordField End Get Set Me.recordField = value Me.RaisePropertyChanged("Record") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class LogFSReadRecordRequest _ Public LogFSReadRecord As OpenControl.LogFSReadRecord Public Sub New() MyBase.New End Sub Public Sub New(ByVal LogFSReadRecord As OpenControl.LogFSReadRecord) MyBase.New Me.LogFSReadRecord = LogFSReadRecord End Sub End Class _ Partial Public Class LogFSReadRecordResponse _ Public LogFSReadRecordR As OpenControl.LogFSReadRecordR Public Sub New() MyBase.New End Sub Public Sub New(ByVal LogFSReadRecordR As OpenControl.LogFSReadRecordR) MyBase.New Me.LogFSReadRecordR = LogFSReadRecordR End Sub End Class ''' _ Partial Public Class ReadRemapDefinitions Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private arraySizeField As Integer Private typeField As Integer ''' _ Public Property ArraySize() As Integer Get Return Me.arraySizeField End Get Set Me.arraySizeField = value Me.RaisePropertyChanged("ArraySize") End Set End Property ''' _ Public Property Type() As Integer Get Return Me.typeField End Get Set Me.typeField = value Me.RaisePropertyChanged("Type") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class ReadRemapDefinitionsR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private arrayField() As REMAPDEF Private definitionsCntField As Integer Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property Array() As REMAPDEF() Get Return Me.arrayField End Get Set Me.arrayField = value Me.RaisePropertyChanged("Array") End Set End Property ''' _ Public Property DefinitionsCnt() As Integer Get Return Me.definitionsCntField End Get Set Me.definitionsCntField = value Me.RaisePropertyChanged("DefinitionsCnt") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class ReadRemapDefinitionsRequest _ Public ReadRemapDefinitions As OpenControl.ReadRemapDefinitions Public Sub New() MyBase.New End Sub Public Sub New(ByVal ReadRemapDefinitions As OpenControl.ReadRemapDefinitions) MyBase.New Me.ReadRemapDefinitions = ReadRemapDefinitions End Sub End Class _ Partial Public Class ReadRemapDefinitionsResponse _ Public ReadRemapDefinitionsR As OpenControl.ReadRemapDefinitionsR Public Sub New() MyBase.New End Sub Public Sub New(ByVal ReadRemapDefinitionsR As OpenControl.ReadRemapDefinitionsR) MyBase.New Me.ReadRemapDefinitionsR = ReadRemapDefinitionsR End Sub End Class ''' _ Partial Public Class WriteRemapDefinitions Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private arraySizeField As Integer Private arrayField() As REMAPDEF Private typeField As Integer Private modeField As Integer ''' _ Public Property ArraySize() As Integer Get Return Me.arraySizeField End Get Set Me.arraySizeField = value Me.RaisePropertyChanged("ArraySize") End Set End Property ''' _ Public Property Array() As REMAPDEF() Get Return Me.arrayField End Get Set Me.arrayField = value Me.RaisePropertyChanged("Array") End Set End Property ''' _ Public Property Type() As Integer Get Return Me.typeField End Get Set Me.typeField = value Me.RaisePropertyChanged("Type") End Set End Property ''' _ Public Property Mode() As Integer Get Return Me.modeField End Get Set Me.modeField = value Me.RaisePropertyChanged("Mode") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class WriteRemapDefinitionsR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class WriteRemapDefinitionsRequest _ Public WriteRemapDefinitions As OpenControl.WriteRemapDefinitions Public Sub New() MyBase.New End Sub Public Sub New(ByVal WriteRemapDefinitions As OpenControl.WriteRemapDefinitions) MyBase.New Me.WriteRemapDefinitions = WriteRemapDefinitions End Sub End Class _ Partial Public Class WriteRemapDefinitionsResponse _ Public WriteRemapDefinitionsR As OpenControl.WriteRemapDefinitionsR Public Sub New() MyBase.New End Sub Public Sub New(ByVal WriteRemapDefinitionsR As OpenControl.WriteRemapDefinitionsR) MyBase.New Me.WriteRemapDefinitionsR = WriteRemapDefinitionsR End Sub End Class ''' _ Partial Public Class GetServoPar Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private axisIdField As UShort Private parIdField As UShort ''' _ Public Property AxisId() As UShort Get Return Me.axisIdField End Get Set Me.axisIdField = value Me.RaisePropertyChanged("AxisId") End Set End Property ''' _ Public Property ParId() As UShort Get Return Me.parIdField End Get Set Me.parIdField = value Me.RaisePropertyChanged("ParId") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class GetServoParR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private valueField As Double Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property Value() As Double Get Return Me.valueField End Get Set Me.valueField = value Me.RaisePropertyChanged("Value") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class GetServoParRequest _ Public GetServoPar As OpenControl.GetServoPar Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetServoPar As OpenControl.GetServoPar) MyBase.New Me.GetServoPar = GetServoPar End Sub End Class _ Partial Public Class GetServoParResponse _ Public GetServoParR As OpenControl.GetServoParR Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetServoParR As OpenControl.GetServoParR) MyBase.New Me.GetServoParR = GetServoParR End Sub End Class ''' _ Partial Public Class SetServoPar Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private axisIdField As UShort Private parIdField As UShort Private valueField As Double ''' _ Public Property AxisId() As UShort Get Return Me.axisIdField End Get Set Me.axisIdField = value Me.RaisePropertyChanged("AxisId") End Set End Property ''' _ Public Property ParId() As UShort Get Return Me.parIdField End Get Set Me.parIdField = value Me.RaisePropertyChanged("ParId") End Set End Property ''' _ Public Property Value() As Double Get Return Me.valueField End Get Set Me.valueField = value Me.RaisePropertyChanged("Value") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class SetServoParR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class SetServoParRequest _ Public SetServoPar As OpenControl.SetServoPar Public Sub New() MyBase.New End Sub Public Sub New(ByVal SetServoPar As OpenControl.SetServoPar) MyBase.New Me.SetServoPar = SetServoPar End Sub End Class _ Partial Public Class SetServoParResponse _ Public SetServoParR As OpenControl.SetServoParR Public Sub New() MyBase.New End Sub Public Sub New(ByVal SetServoParR As OpenControl.SetServoParR) MyBase.New Me.SetServoParR = SetServoParR End Sub End Class ''' _ Partial Public Class GetCNCRegKey Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private keyField As String Private subKeyField As String Private valueLenField As Integer ''' _ Public Property Key() As String Get Return Me.keyField End Get Set Me.keyField = value Me.RaisePropertyChanged("Key") End Set End Property ''' _ Public Property SubKey() As String Get Return Me.subKeyField End Get Set Me.subKeyField = value Me.RaisePropertyChanged("SubKey") End Set End Property ''' _ Public Property ValueLen() As Integer Get Return Me.valueLenField End Get Set Me.valueLenField = value Me.RaisePropertyChanged("ValueLen") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class GetCNCRegKeyR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private valueLenField As Integer Private valueField() As Byte Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ValueLen() As Integer Get Return Me.valueLenField End Get Set Me.valueLenField = value Me.RaisePropertyChanged("ValueLen") End Set End Property ''' _ Public Property Value() As Byte() Get Return Me.valueField End Get Set Me.valueField = value Me.RaisePropertyChanged("Value") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class GetCNCRegKeyRequest _ Public GetCNCRegKey As OpenControl.GetCNCRegKey Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetCNCRegKey As OpenControl.GetCNCRegKey) MyBase.New Me.GetCNCRegKey = GetCNCRegKey End Sub End Class _ Partial Public Class GetCNCRegKeyResponse _ Public GetCNCRegKeyR As OpenControl.GetCNCRegKeyR Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetCNCRegKeyR As OpenControl.GetCNCRegKeyR) MyBase.New Me.GetCNCRegKeyR = GetCNCRegKeyR End Sub End Class ''' _ Partial Public Class SetIpAddress Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private ipAddressField As String Private subNetMaskField As String Private defaultGatewayField As String Private dnsField As String Private winsField As String Private netField As String ''' _ Public Property IpAddress() As String Get Return Me.ipAddressField End Get Set Me.ipAddressField = value Me.RaisePropertyChanged("IpAddress") End Set End Property ''' _ Public Property SubNetMask() As String Get Return Me.subNetMaskField End Get Set Me.subNetMaskField = value Me.RaisePropertyChanged("SubNetMask") End Set End Property ''' _ Public Property DefaultGateway() As String Get Return Me.defaultGatewayField End Get Set Me.defaultGatewayField = value Me.RaisePropertyChanged("DefaultGateway") End Set End Property ''' _ Public Property Dns() As String Get Return Me.dnsField End Get Set Me.dnsField = value Me.RaisePropertyChanged("Dns") End Set End Property ''' _ Public Property Wins() As String Get Return Me.winsField End Get Set Me.winsField = value Me.RaisePropertyChanged("Wins") End Set End Property ''' _ Public Property Net() As String Get Return Me.netField End Get Set Me.netField = value Me.RaisePropertyChanged("Net") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class SetIpAddressR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class SetIpAddressRequest _ Public SetIpAddress As OpenControl.SetIpAddress Public Sub New() MyBase.New End Sub Public Sub New(ByVal SetIpAddress As OpenControl.SetIpAddress) MyBase.New Me.SetIpAddress = SetIpAddress End Sub End Class _ Partial Public Class SetIpAddressResponse _ Public SetIpAddressR As OpenControl.SetIpAddressR Public Sub New() MyBase.New End Sub Public Sub New(ByVal SetIpAddressR As OpenControl.SetIpAddressR) MyBase.New Me.SetIpAddressR = SetIpAddressR End Sub End Class ''' _ Partial Public Class GetProcInInput Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private processField As UShort ''' _ Public Property Process() As UShort Get Return Me.processField End Get Set Me.processField = value Me.RaisePropertyChanged("Process") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class GetProcInInputR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private procInfoField As INPUTINFO Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ProcInfo() As INPUTINFO Get Return Me.procInfoField End Get Set Me.procInfoField = value Me.RaisePropertyChanged("ProcInfo") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class GetProcInInputRequest _ Public GetProcInInput As OpenControl.GetProcInInput Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetProcInInput As OpenControl.GetProcInInput) MyBase.New Me.GetProcInInput = GetProcInInput End Sub End Class _ Partial Public Class GetProcInInputResponse _ Public GetProcInInputR As OpenControl.GetProcInInputR Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetProcInInputR As OpenControl.GetProcInInputR) MyBase.New Me.GetProcInInputR = GetProcInInputR End Sub End Class ''' _ Partial Public Class SndProcInpData Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private processField As UShort Private keyPressedField As UShort Private numDataField As UShort Private arDataField() As Byte Private arSizeField As UShort ''' _ Public Property Process() As UShort Get Return Me.processField End Get Set Me.processField = value Me.RaisePropertyChanged("Process") End Set End Property ''' _ Public Property keyPressed() As UShort Get Return Me.keyPressedField End Get Set Me.keyPressedField = value Me.RaisePropertyChanged("keyPressed") End Set End Property ''' _ Public Property numData() As UShort Get Return Me.numDataField End Get Set Me.numDataField = value Me.RaisePropertyChanged("numData") End Set End Property ''' _ Public Property arData() As Byte() Get Return Me.arDataField End Get Set Me.arDataField = value Me.RaisePropertyChanged("arData") End Set End Property ''' _ Public Property arSize() As UShort Get Return Me.arSizeField End Get Set Me.arSizeField = value Me.RaisePropertyChanged("arSize") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class ''' _ Partial Public Class SndProcInpDataR Inherits Object Implements System.ComponentModel.INotifyPropertyChanged Private retvalField As UShort Private errClassField As UInteger Private errNumField As UInteger ''' _ Public Property retval() As UShort Get Return Me.retvalField End Get Set Me.retvalField = value Me.RaisePropertyChanged("retval") End Set End Property ''' _ Public Property ErrClass() As UInteger Get Return Me.errClassField End Get Set Me.errClassField = value Me.RaisePropertyChanged("ErrClass") End Set End Property ''' _ Public Property ErrNum() As UInteger Get Return Me.errNumField End Get Set Me.errNumField = value Me.RaisePropertyChanged("ErrNum") End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class SndProcInpDataRequest _ Public SndProcInpData As OpenControl.SndProcInpData Public Sub New() MyBase.New End Sub Public Sub New(ByVal SndProcInpData As OpenControl.SndProcInpData) MyBase.New Me.SndProcInpData = SndProcInpData End Sub End Class _ Partial Public Class SndProcInpDataResponse _ Public SndProcInpDataR As OpenControl.SndProcInpDataR Public Sub New() MyBase.New End Sub Public Sub New(ByVal SndProcInpDataR As OpenControl.SndProcInpDataR) MyBase.New Me.SndProcInpDataR = SndProcInpDataR End Sub End Class _ Public Interface OPENcontrolPortTypeChannel Inherits OpenControl.OPENcontrolPortType, System.ServiceModel.IClientChannel End Interface _ Partial Public Class OPENcontrolPortTypeClient Inherits System.ServiceModel.ClientBase(Of OpenControl.OPENcontrolPortType) Implements OpenControl.OPENcontrolPortType Public Sub New() MyBase.New End Sub Public Sub New(ByVal endpointConfigurationName As String) MyBase.New(endpointConfigurationName) End Sub Public Sub New(ByVal endpointConfigurationName As String, ByVal remoteAddress As String) MyBase.New(endpointConfigurationName, remoteAddress) End Sub Public Sub New(ByVal endpointConfigurationName As String, ByVal remoteAddress As System.ServiceModel.EndpointAddress) MyBase.New(endpointConfigurationName, remoteAddress) End Sub Public Sub New(ByVal binding As System.ServiceModel.Channels.Binding, ByVal remoteAddress As System.ServiceModel.EndpointAddress) MyBase.New(binding, remoteAddress) End Sub _ Function OpenControl_OPENcontrolPortType_BootPhaseEnquiry(ByVal request As OpenControl.BootPhaseEnquiryRequest) As OpenControl.BootPhaseEnquiryResponse Implements OpenControl.OPENcontrolPortType.BootPhaseEnquiry Return MyBase.Channel.BootPhaseEnquiry(request) End Function Public Function BootPhaseEnquiry(ByVal BootPhaseEnquiry1 As OpenControl.BootPhaseEnquiry) As OpenControl.BootPhaseEnquiryR Dim inValue As OpenControl.BootPhaseEnquiryRequest = New OpenControl.BootPhaseEnquiryRequest() inValue.BootPhaseEnquiry = BootPhaseEnquiry1 Dim retVal As OpenControl.BootPhaseEnquiryResponse = CType(Me,OpenControl.OPENcontrolPortType).BootPhaseEnquiry(inValue) Return retVal.BootPhaseEnquiryR End Function _ Function OpenControl_OPENcontrolPortType_BootReboot(ByVal request As OpenControl.BootRebootRequest) As OpenControl.BootRebootResponse Implements OpenControl.OPENcontrolPortType.BootReboot Return MyBase.Channel.BootReboot(request) End Function Public Function BootReboot(ByVal BootReboot1 As OpenControl.BootReboot) As OpenControl.BootRebootR Dim inValue As OpenControl.BootRebootRequest = New OpenControl.BootRebootRequest() inValue.BootReboot = BootReboot1 Dim retVal As OpenControl.BootRebootResponse = CType(Me,OpenControl.OPENcontrolPortType).BootReboot(inValue) Return retVal.BootRebootR End Function _ Function OpenControl_OPENcontrolPortType_BootShutDown(ByVal request As OpenControl.BootShutDownRequest) As OpenControl.BootShutDownResponse Implements OpenControl.OPENcontrolPortType.BootShutDown Return MyBase.Channel.BootShutDown(request) End Function Public Function BootShutDown(ByVal BootShutDown1 As OpenControl.BootShutDown) As OpenControl.BootShutDownR Dim inValue As OpenControl.BootShutDownRequest = New OpenControl.BootShutDownRequest() inValue.BootShutDown = BootShutDown1 Dim retVal As OpenControl.BootShutDownResponse = CType(Me,OpenControl.OPENcontrolPortType).BootShutDown(inValue) Return retVal.BootShutDownR End Function _ Function OpenControl_OPENcontrolPortType_BootMode(ByVal request As OpenControl.BootModeRequest) As OpenControl.BootModeResponse Implements OpenControl.OPENcontrolPortType.BootMode Return MyBase.Channel.BootMode(request) End Function Public Function BootMode(ByVal BootMode1 As OpenControl.BootMode) As OpenControl.BootModeR Dim inValue As OpenControl.BootModeRequest = New OpenControl.BootModeRequest() inValue.BootMode = BootMode1 Dim retVal As OpenControl.BootModeResponse = CType(Me,OpenControl.OPENcontrolPortType).BootMode(inValue) Return retVal.BootModeR End Function _ Function OpenControl_OPENcontrolPortType_GetHWKey(ByVal request As OpenControl.GetHWKeyRequest) As OpenControl.GetHWKeyResponse Implements OpenControl.OPENcontrolPortType.GetHWKey Return MyBase.Channel.GetHWKey(request) End Function Public Function GetHWKey(ByVal GetHWKey1 As OpenControl.GetHWKey) As OpenControl.GetHWKeyR Dim inValue As OpenControl.GetHWKeyRequest = New OpenControl.GetHWKeyRequest() inValue.GetHWKey = GetHWKey1 Dim retVal As OpenControl.GetHWKeyResponse = CType(Me,OpenControl.OPENcontrolPortType).GetHWKey(inValue) Return retVal.GetHWKeyR End Function _ Function OpenControl_OPENcontrolPortType_ReadVarWord(ByVal request As OpenControl.ReadVarWordRequest) As OpenControl.ReadVarWordResponse Implements OpenControl.OPENcontrolPortType.ReadVarWord Return MyBase.Channel.ReadVarWord(request) End Function Public Function ReadVarWord(ByVal ReadVarWord1 As OpenControl.ReadVarWord) As OpenControl.ReadVarWordR Dim inValue As OpenControl.ReadVarWordRequest = New OpenControl.ReadVarWordRequest() inValue.ReadVarWord = ReadVarWord1 Dim retVal As OpenControl.ReadVarWordResponse = CType(Me,OpenControl.OPENcontrolPortType).ReadVarWord(inValue) Return retVal.ReadVarWordR End Function _ Function OpenControl_OPENcontrolPortType_ReadVarDouble(ByVal request As OpenControl.ReadVarDoubleRequest) As OpenControl.ReadVarDoubleResponse Implements OpenControl.OPENcontrolPortType.ReadVarDouble Return MyBase.Channel.ReadVarDouble(request) End Function Public Function ReadVarDouble(ByVal ReadVarDouble1 As OpenControl.ReadVarDouble) As OpenControl.ReadVarDoubleR Dim inValue As OpenControl.ReadVarDoubleRequest = New OpenControl.ReadVarDoubleRequest() inValue.ReadVarDouble = ReadVarDouble1 Dim retVal As OpenControl.ReadVarDoubleResponse = CType(Me,OpenControl.OPENcontrolPortType).ReadVarDouble(inValue) Return retVal.ReadVarDoubleR End Function _ Function OpenControl_OPENcontrolPortType_WriteVarWord(ByVal request As OpenControl.WriteVarWordRequest) As OpenControl.WriteVarWordResponse Implements OpenControl.OPENcontrolPortType.WriteVarWord Return MyBase.Channel.WriteVarWord(request) End Function Public Function WriteVarWord(ByVal WriteVarWord1 As OpenControl.WriteVarWord) As OpenControl.WriteVarWordR Dim inValue As OpenControl.WriteVarWordRequest = New OpenControl.WriteVarWordRequest() inValue.WriteVarWord = WriteVarWord1 Dim retVal As OpenControl.WriteVarWordResponse = CType(Me,OpenControl.OPENcontrolPortType).WriteVarWord(inValue) Return retVal.WriteVarWordR End Function _ Function OpenControl_OPENcontrolPortType_WriteVarWordBit(ByVal request As OpenControl.WriteVarWordBitRequest) As OpenControl.WriteVarWordBitResponse Implements OpenControl.OPENcontrolPortType.WriteVarWordBit Return MyBase.Channel.WriteVarWordBit(request) End Function Public Function WriteVarWordBit(ByVal WriteVarWordBit1 As OpenControl.WriteVarWordBit) As OpenControl.WriteVarWordBitR Dim inValue As OpenControl.WriteVarWordBitRequest = New OpenControl.WriteVarWordBitRequest() inValue.WriteVarWordBit = WriteVarWordBit1 Dim retVal As OpenControl.WriteVarWordBitResponse = CType(Me,OpenControl.OPENcontrolPortType).WriteVarWordBit(inValue) Return retVal.WriteVarWordBitR End Function _ Function OpenControl_OPENcontrolPortType_WriteVarDouble(ByVal request As OpenControl.WriteVarDoubleRequest) As OpenControl.WriteVarDoubleResponse Implements OpenControl.OPENcontrolPortType.WriteVarDouble Return MyBase.Channel.WriteVarDouble(request) End Function Public Function WriteVarDouble(ByVal WriteVarDouble1 As OpenControl.WriteVarDouble) As OpenControl.WriteVarDoubleR Dim inValue As OpenControl.WriteVarDoubleRequest = New OpenControl.WriteVarDoubleRequest() inValue.WriteVarDouble = WriteVarDouble1 Dim retVal As OpenControl.WriteVarDoubleResponse = CType(Me,OpenControl.OPENcontrolPortType).WriteVarDouble(inValue) Return retVal.WriteVarDoubleR End Function _ Function OpenControl_OPENcontrolPortType_ReadVarText(ByVal request As OpenControl.ReadVarTextRequest) As OpenControl.ReadVarTextResponse Implements OpenControl.OPENcontrolPortType.ReadVarText Return MyBase.Channel.ReadVarText(request) End Function Public Function ReadVarText(ByVal ReadVarText1 As OpenControl.ReadVarText) As OpenControl.ReadVarTextR Dim inValue As OpenControl.ReadVarTextRequest = New OpenControl.ReadVarTextRequest() inValue.ReadVarText = ReadVarText1 Dim retVal As OpenControl.ReadVarTextResponse = CType(Me,OpenControl.OPENcontrolPortType).ReadVarText(inValue) Return retVal.ReadVarTextR End Function _ Function OpenControl_OPENcontrolPortType_WriteVarText(ByVal request As OpenControl.WriteVarTextRequest) As OpenControl.WriteVarTextResponse Implements OpenControl.OPENcontrolPortType.WriteVarText Return MyBase.Channel.WriteVarText(request) End Function Public Function WriteVarText(ByVal WriteVarText1 As OpenControl.WriteVarText) As OpenControl.WriteVarTextR Dim inValue As OpenControl.WriteVarTextRequest = New OpenControl.WriteVarTextRequest() inValue.WriteVarText = WriteVarText1 Dim retVal As OpenControl.WriteVarTextResponse = CType(Me,OpenControl.OPENcontrolPortType).WriteVarText(inValue) Return retVal.WriteVarTextR End Function _ Function OpenControl_OPENcontrolPortType_ReadWarningMsg(ByVal request As OpenControl.ReadWarningMsgRequest) As OpenControl.ReadWarningMsgResponse Implements OpenControl.OPENcontrolPortType.ReadWarningMsg Return MyBase.Channel.ReadWarningMsg(request) End Function Public Function ReadWarningMsg(ByVal ReadWarningMsg1 As OpenControl.ReadWarningMsg) As OpenControl.ReadWarningMsgR Dim inValue As OpenControl.ReadWarningMsgRequest = New OpenControl.ReadWarningMsgRequest() inValue.ReadWarningMsg = ReadWarningMsg1 Dim retVal As OpenControl.ReadWarningMsgResponse = CType(Me,OpenControl.OPENcontrolPortType).ReadWarningMsg(inValue) Return retVal.ReadWarningMsgR End Function _ Function OpenControl_OPENcontrolPortType_ResetSingleTableII(ByVal request As OpenControl.ResetSingleTableIIRequest) As OpenControl.ResetSingleTableIIResponse Implements OpenControl.OPENcontrolPortType.ResetSingleTableII Return MyBase.Channel.ResetSingleTableII(request) End Function Public Function ResetSingleTableII(ByVal ResetSingleTableII1 As OpenControl.ResetSingleTableII) As OpenControl.ResetSingleTableIIR Dim inValue As OpenControl.ResetSingleTableIIRequest = New OpenControl.ResetSingleTableIIRequest() inValue.ResetSingleTableII = ResetSingleTableII1 Dim retVal As OpenControl.ResetSingleTableIIResponse = CType(Me,OpenControl.OPENcontrolPortType).ResetSingleTableII(inValue) Return retVal.ResetSingleTableIIR End Function _ Function OpenControl_OPENcontrolPortType_LockTableII(ByVal request As OpenControl.LockTableIIRequest) As OpenControl.LockTableIIResponse Implements OpenControl.OPENcontrolPortType.LockTableII Return MyBase.Channel.LockTableII(request) End Function Public Function LockTableII(ByVal LockTableII1 As OpenControl.LockTableII) As OpenControl.LockTableIIR Dim inValue As OpenControl.LockTableIIRequest = New OpenControl.LockTableIIRequest() inValue.LockTableII = LockTableII1 Dim retVal As OpenControl.LockTableIIResponse = CType(Me,OpenControl.OPENcontrolPortType).LockTableII(inValue) Return retVal.LockTableIIR End Function _ Function OpenControl_OPENcontrolPortType_UnLockTableII(ByVal request As OpenControl.UnLockTableIIRequest) As OpenControl.UnLockTableIIResponse Implements OpenControl.OPENcontrolPortType.UnLockTableII Return MyBase.Channel.UnLockTableII(request) End Function Public Function UnLockTableII(ByVal UnLockTableII1 As OpenControl.UnLockTableII) As OpenControl.UnLockTableIIR Dim inValue As OpenControl.UnLockTableIIRequest = New OpenControl.UnLockTableIIRequest() inValue.UnLockTableII = UnLockTableII1 Dim retVal As OpenControl.UnLockTableIIResponse = CType(Me,OpenControl.OPENcontrolPortType).UnLockTableII(inValue) Return retVal.UnLockTableIIR End Function _ Function OpenControl_OPENcontrolPortType_GetOriginTabRecordII(ByVal request As OpenControl.GetOriginTabRecordIIRequest) As OpenControl.GetOriginTabRecordIIResponse Implements OpenControl.OPENcontrolPortType.GetOriginTabRecordII Return MyBase.Channel.GetOriginTabRecordII(request) End Function Public Function GetOriginTabRecordII(ByVal GetOriginTabRecordII1 As OpenControl.GetOriginTabRecordII) As OpenControl.GetOriginTabRecordIIR Dim inValue As OpenControl.GetOriginTabRecordIIRequest = New OpenControl.GetOriginTabRecordIIRequest() inValue.GetOriginTabRecordII = GetOriginTabRecordII1 Dim retVal As OpenControl.GetOriginTabRecordIIResponse = CType(Me,OpenControl.OPENcontrolPortType).GetOriginTabRecordII(inValue) Return retVal.GetOriginTabRecordIIR End Function _ Function OpenControl_OPENcontrolPortType_SetOriginTabRecordII(ByVal request As OpenControl.SetOriginTabRecordIIRequest) As OpenControl.SetOriginTabRecordIIResponse Implements OpenControl.OPENcontrolPortType.SetOriginTabRecordII Return MyBase.Channel.SetOriginTabRecordII(request) End Function Public Function SetOriginTabRecordII(ByVal SetOriginTabRecordII1 As OpenControl.SetOriginTabRecordII) As OpenControl.SetOriginTabRecordIIR Dim inValue As OpenControl.SetOriginTabRecordIIRequest = New OpenControl.SetOriginTabRecordIIRequest() inValue.SetOriginTabRecordII = SetOriginTabRecordII1 Dim retVal As OpenControl.SetOriginTabRecordIIResponse = CType(Me,OpenControl.OPENcontrolPortType).SetOriginTabRecordII(inValue) Return retVal.SetOriginTabRecordIIR End Function _ Function OpenControl_OPENcontrolPortType_GetToolTabRecordII(ByVal request As OpenControl.GetToolTabRecordIIRequest) As OpenControl.GetToolTabRecordIIResponse Implements OpenControl.OPENcontrolPortType.GetToolTabRecordII Return MyBase.Channel.GetToolTabRecordII(request) End Function Public Function GetToolTabRecordII(ByVal GetToolTabRecordII1 As OpenControl.GetToolTabRecordII) As OpenControl.GetToolTabRecordIIR Dim inValue As OpenControl.GetToolTabRecordIIRequest = New OpenControl.GetToolTabRecordIIRequest() inValue.GetToolTabRecordII = GetToolTabRecordII1 Dim retVal As OpenControl.GetToolTabRecordIIResponse = CType(Me,OpenControl.OPENcontrolPortType).GetToolTabRecordII(inValue) Return retVal.GetToolTabRecordIIR End Function _ Function OpenControl_OPENcontrolPortType_SetToolTabRecordII(ByVal request As OpenControl.SetToolTabRecordIIRequest) As OpenControl.SetToolTabRecordIIResponse Implements OpenControl.OPENcontrolPortType.SetToolTabRecordII Return MyBase.Channel.SetToolTabRecordII(request) End Function Public Function SetToolTabRecordII(ByVal SetToolTabRecordII1 As OpenControl.SetToolTabRecordII) As OpenControl.SetToolTabRecordIIR Dim inValue As OpenControl.SetToolTabRecordIIRequest = New OpenControl.SetToolTabRecordIIRequest() inValue.SetToolTabRecordII = SetToolTabRecordII1 Dim retVal As OpenControl.SetToolTabRecordIIResponse = CType(Me,OpenControl.OPENcontrolPortType).SetToolTabRecordII(inValue) Return retVal.SetToolTabRecordIIR End Function _ Function OpenControl_OPENcontrolPortType_GetOffsetTabRecordII(ByVal request As OpenControl.GetOffsetTabRecordIIRequest) As OpenControl.GetOffsetTabRecordIIResponse Implements OpenControl.OPENcontrolPortType.GetOffsetTabRecordII Return MyBase.Channel.GetOffsetTabRecordII(request) End Function Public Function GetOffsetTabRecordII(ByVal GetOffsetTabRecordII1 As OpenControl.GetOffsetTabRecordII) As OpenControl.GetOffsetTabRecordIIR Dim inValue As OpenControl.GetOffsetTabRecordIIRequest = New OpenControl.GetOffsetTabRecordIIRequest() inValue.GetOffsetTabRecordII = GetOffsetTabRecordII1 Dim retVal As OpenControl.GetOffsetTabRecordIIResponse = CType(Me,OpenControl.OPENcontrolPortType).GetOffsetTabRecordII(inValue) Return retVal.GetOffsetTabRecordIIR End Function _ Function OpenControl_OPENcontrolPortType_SetOffsetTabRecordII(ByVal request As OpenControl.SetOffsetTabRecordIIRequest) As OpenControl.SetOffsetTabRecordIIResponse Implements OpenControl.OPENcontrolPortType.SetOffsetTabRecordII Return MyBase.Channel.SetOffsetTabRecordII(request) End Function Public Function SetOffsetTabRecordII(ByVal SetOffsetTabRecordII1 As OpenControl.SetOffsetTabRecordII) As OpenControl.SetOffsetTabRecordIIR Dim inValue As OpenControl.SetOffsetTabRecordIIRequest = New OpenControl.SetOffsetTabRecordIIRequest() inValue.SetOffsetTabRecordII = SetOffsetTabRecordII1 Dim retVal As OpenControl.SetOffsetTabRecordIIResponse = CType(Me,OpenControl.OPENcontrolPortType).SetOffsetTabRecordII(inValue) Return retVal.SetOffsetTabRecordIIR End Function _ Function OpenControl_OPENcontrolPortType_GetUserTabRecordII(ByVal request As OpenControl.GetUserTabRecordIIRequest) As OpenControl.GetUserTabRecordIIResponse Implements OpenControl.OPENcontrolPortType.GetUserTabRecordII Return MyBase.Channel.GetUserTabRecordII(request) End Function Public Function GetUserTabRecordII(ByVal GetUserTabRecordII1 As OpenControl.GetUserTabRecordII) As OpenControl.GetUserTabRecordIIR Dim inValue As OpenControl.GetUserTabRecordIIRequest = New OpenControl.GetUserTabRecordIIRequest() inValue.GetUserTabRecordII = GetUserTabRecordII1 Dim retVal As OpenControl.GetUserTabRecordIIResponse = CType(Me,OpenControl.OPENcontrolPortType).GetUserTabRecordII(inValue) Return retVal.GetUserTabRecordIIR End Function _ Function OpenControl_OPENcontrolPortType_SetUserTabRecordII(ByVal request As OpenControl.SetUserTabRecordIIRequest) As OpenControl.SetUserTabRecordIIResponse Implements OpenControl.OPENcontrolPortType.SetUserTabRecordII Return MyBase.Channel.SetUserTabRecordII(request) End Function Public Function SetUserTabRecordII(ByVal SetUserTabRecordII1 As OpenControl.SetUserTabRecordII) As OpenControl.SetUserTabRecordIIR Dim inValue As OpenControl.SetUserTabRecordIIRequest = New OpenControl.SetUserTabRecordIIRequest() inValue.SetUserTabRecordII = SetUserTabRecordII1 Dim retVal As OpenControl.SetUserTabRecordIIResponse = CType(Me,OpenControl.OPENcontrolPortType).SetUserTabRecordII(inValue) Return retVal.SetUserTabRecordIIR End Function _ Function OpenControl_OPENcontrolPortType_SaveTables(ByVal request As OpenControl.SaveTablesRequest) As OpenControl.SaveTablesResponse Implements OpenControl.OPENcontrolPortType.SaveTables Return MyBase.Channel.SaveTables(request) End Function Public Function SaveTables(ByVal SaveTables1 As OpenControl.SaveTables) As OpenControl.SaveTablesR Dim inValue As OpenControl.SaveTablesRequest = New OpenControl.SaveTablesRequest() inValue.SaveTables = SaveTables1 Dim retVal As OpenControl.SaveTablesResponse = CType(Me,OpenControl.OPENcontrolPortType).SaveTables(inValue) Return retVal.SaveTablesR End Function _ Function OpenControl_OPENcontrolPortType_RestoreSingleTable(ByVal request As OpenControl.RestoreSingleTableRequest) As OpenControl.RestoreSingleTableResponse Implements OpenControl.OPENcontrolPortType.RestoreSingleTable Return MyBase.Channel.RestoreSingleTable(request) End Function Public Function RestoreSingleTable(ByVal RestoreSingleTable1 As OpenControl.RestoreSingleTable) As OpenControl.RestoreSingleTableR Dim inValue As OpenControl.RestoreSingleTableRequest = New OpenControl.RestoreSingleTableRequest() inValue.RestoreSingleTable = RestoreSingleTable1 Dim retVal As OpenControl.RestoreSingleTableResponse = CType(Me,OpenControl.OPENcontrolPortType).RestoreSingleTable(inValue) Return retVal.RestoreSingleTableR End Function _ Function OpenControl_OPENcontrolPortType_SaveSingleTable(ByVal request As OpenControl.SaveSingleTableRequest) As OpenControl.SaveSingleTableResponse Implements OpenControl.OPENcontrolPortType.SaveSingleTable Return MyBase.Channel.SaveSingleTable(request) End Function Public Function SaveSingleTable(ByVal SaveSingleTable1 As OpenControl.SaveSingleTable) As OpenControl.SaveSingleTableR Dim inValue As OpenControl.SaveSingleTableRequest = New OpenControl.SaveSingleTableRequest() inValue.SaveSingleTable = SaveSingleTable1 Dim retVal As OpenControl.SaveSingleTableResponse = CType(Me,OpenControl.OPENcontrolPortType).SaveSingleTable(inValue) Return retVal.SaveSingleTableR End Function _ Function OpenControl_OPENcontrolPortType_SaveBackupMemory(ByVal request As OpenControl.SaveBackupMemoryRequest) As OpenControl.SaveBackupMemoryResponse Implements OpenControl.OPENcontrolPortType.SaveBackupMemory Return MyBase.Channel.SaveBackupMemory(request) End Function Public Function SaveBackupMemory(ByVal SaveBackupMemory1 As OpenControl.SaveBackupMemory) As OpenControl.SaveBackupMemoryR Dim inValue As OpenControl.SaveBackupMemoryRequest = New OpenControl.SaveBackupMemoryRequest() inValue.SaveBackupMemory = SaveBackupMemory1 Dim retVal As OpenControl.SaveBackupMemoryResponse = CType(Me,OpenControl.OPENcontrolPortType).SaveBackupMemory(inValue) Return retVal.SaveBackupMemoryR End Function _ Function OpenControl_OPENcontrolPortType_RestoreBackupMemory(ByVal request As OpenControl.RestoreBackupMemoryRequest) As OpenControl.RestoreBackupMemoryResponse Implements OpenControl.OPENcontrolPortType.RestoreBackupMemory Return MyBase.Channel.RestoreBackupMemory(request) End Function Public Function RestoreBackupMemory(ByVal RestoreBackupMemory1 As OpenControl.RestoreBackupMemory) As OpenControl.RestoreBackupMemoryR Dim inValue As OpenControl.RestoreBackupMemoryRequest = New OpenControl.RestoreBackupMemoryRequest() inValue.RestoreBackupMemory = RestoreBackupMemory1 Dim retVal As OpenControl.RestoreBackupMemoryResponse = CType(Me,OpenControl.OPENcontrolPortType).RestoreBackupMemory(inValue) Return retVal.RestoreBackupMemoryR End Function _ Function OpenControl_OPENcontrolPortType_Cycle(ByVal request As OpenControl.CycleRequest) As OpenControl.CycleResponse Implements OpenControl.OPENcontrolPortType.Cycle Return MyBase.Channel.Cycle(request) End Function Public Function Cycle(ByVal Cycle1 As OpenControl.Cycle) As OpenControl.CycleR Dim inValue As OpenControl.CycleRequest = New OpenControl.CycleRequest() inValue.Cycle = Cycle1 Dim retVal As OpenControl.CycleResponse = CType(Me,OpenControl.OPENcontrolPortType).Cycle(inValue) Return retVal.CycleR End Function _ Function OpenControl_OPENcontrolPortType_SyncroCycle(ByVal request As OpenControl.SyncroCycleRequest) As OpenControl.SyncroCycleResponse Implements OpenControl.OPENcontrolPortType.SyncroCycle Return MyBase.Channel.SyncroCycle(request) End Function Public Function SyncroCycle(ByVal SyncroCycle1 As OpenControl.SyncroCycle) As OpenControl.SyncroCycleR Dim inValue As OpenControl.SyncroCycleRequest = New OpenControl.SyncroCycleRequest() inValue.SyncroCycle = SyncroCycle1 Dim retVal As OpenControl.SyncroCycleResponse = CType(Me,OpenControl.OPENcontrolPortType).SyncroCycle(inValue) Return retVal.SyncroCycleR End Function _ Function OpenControl_OPENcontrolPortType_Reset(ByVal request As OpenControl.ResetRequest) As OpenControl.ResetResponse Implements OpenControl.OPENcontrolPortType.Reset Return MyBase.Channel.Reset(request) End Function Public Function Reset(ByVal Reset1 As OpenControl.Reset) As OpenControl.ResetR Dim inValue As OpenControl.ResetRequest = New OpenControl.ResetRequest() inValue.Reset = Reset1 Dim retVal As OpenControl.ResetResponse = CType(Me,OpenControl.OPENcontrolPortType).Reset(inValue) Return retVal.ResetR End Function _ Function OpenControl_OPENcontrolPortType_Hold(ByVal request As OpenControl.HoldRequest) As OpenControl.HoldResponse Implements OpenControl.OPENcontrolPortType.Hold Return MyBase.Channel.Hold(request) End Function Public Function Hold(ByVal Hold1 As OpenControl.Hold) As OpenControl.HoldR Dim inValue As OpenControl.HoldRequest = New OpenControl.HoldRequest() inValue.Hold = Hold1 Dim retVal As OpenControl.HoldResponse = CType(Me,OpenControl.OPENcontrolPortType).Hold(inValue) Return retVal.HoldR End Function _ Function OpenControl_OPENcontrolPortType_SetFeedManOver(ByVal request As OpenControl.SetFeedManOverRequest) As OpenControl.SetFeedManOverResponse Implements OpenControl.OPENcontrolPortType.SetFeedManOver Return MyBase.Channel.SetFeedManOver(request) End Function Public Function SetFeedManOver(ByVal SetFeedManOver1 As OpenControl.SetFeedManOver) As OpenControl.SetFeedManOverR Dim inValue As OpenControl.SetFeedManOverRequest = New OpenControl.SetFeedManOverRequest() inValue.SetFeedManOver = SetFeedManOver1 Dim retVal As OpenControl.SetFeedManOverResponse = CType(Me,OpenControl.OPENcontrolPortType).SetFeedManOver(inValue) Return retVal.SetFeedManOverR End Function _ Function OpenControl_OPENcontrolPortType_SetFeedRateOver(ByVal request As OpenControl.SetFeedRateOverRequest) As OpenControl.SetFeedRateOverResponse Implements OpenControl.OPENcontrolPortType.SetFeedRateOver Return MyBase.Channel.SetFeedRateOver(request) End Function Public Function SetFeedRateOver(ByVal SetFeedRateOver1 As OpenControl.SetFeedRateOver) As OpenControl.SetFeedRateOverR Dim inValue As OpenControl.SetFeedRateOverRequest = New OpenControl.SetFeedRateOverRequest() inValue.SetFeedRateOver = SetFeedRateOver1 Dim retVal As OpenControl.SetFeedRateOverResponse = CType(Me,OpenControl.OPENcontrolPortType).SetFeedRateOver(inValue) Return retVal.SetFeedRateOverR End Function _ Function OpenControl_OPENcontrolPortType_SetFeedRapidOver(ByVal request As OpenControl.SetFeedRapidOverRequest) As OpenControl.SetFeedRapidOverResponse Implements OpenControl.OPENcontrolPortType.SetFeedRapidOver Return MyBase.Channel.SetFeedRapidOver(request) End Function Public Function SetFeedRapidOver(ByVal SetFeedRapidOver1 As OpenControl.SetFeedRapidOver) As OpenControl.SetFeedRapidOverR Dim inValue As OpenControl.SetFeedRapidOverRequest = New OpenControl.SetFeedRapidOverRequest() inValue.SetFeedRapidOver = SetFeedRapidOver1 Dim retVal As OpenControl.SetFeedRapidOverResponse = CType(Me,OpenControl.OPENcontrolPortType).SetFeedRapidOver(inValue) Return retVal.SetFeedRapidOverR End Function _ Function OpenControl_OPENcontrolPortType_SetSpeedRateOver(ByVal request As OpenControl.SetSpeedRateOverRequest) As OpenControl.SetSpeedRateOverResponse Implements OpenControl.OPENcontrolPortType.SetSpeedRateOver Return MyBase.Channel.SetSpeedRateOver(request) End Function Public Function SetSpeedRateOver(ByVal SetSpeedRateOver1 As OpenControl.SetSpeedRateOver) As OpenControl.SetSpeedRateOverR Dim inValue As OpenControl.SetSpeedRateOverRequest = New OpenControl.SetSpeedRateOverRequest() inValue.SetSpeedRateOver = SetSpeedRateOver1 Dim retVal As OpenControl.SetSpeedRateOverResponse = CType(Me,OpenControl.OPENcontrolPortType).SetSpeedRateOver(inValue) Return retVal.SetSpeedRateOverR End Function _ Function OpenControl_OPENcontrolPortType_SetManMovDirection(ByVal request As OpenControl.SetManMovDirectionRequest) As OpenControl.SetManMovDirectionResponse Implements OpenControl.OPENcontrolPortType.SetManMovDirection Return MyBase.Channel.SetManMovDirection(request) End Function Public Function SetManMovDirection(ByVal SetManMovDirection1 As OpenControl.SetManMovDirection) As OpenControl.SetManMovDirectionR Dim inValue As OpenControl.SetManMovDirectionRequest = New OpenControl.SetManMovDirectionRequest() inValue.SetManMovDirection = SetManMovDirection1 Dim retVal As OpenControl.SetManMovDirectionResponse = CType(Me,OpenControl.OPENcontrolPortType).SetManMovDirection(inValue) Return retVal.SetManMovDirectionR End Function _ Function OpenControl_OPENcontrolPortType_GetVarJOG(ByVal request As OpenControl.GetVarJOGRequest) As OpenControl.GetVarJOGResponse Implements OpenControl.OPENcontrolPortType.GetVarJOG Return MyBase.Channel.GetVarJOG(request) End Function Public Function GetVarJOG(ByVal GetVarJOG1 As OpenControl.GetVarJOG) As OpenControl.GetVarJOGR Dim inValue As OpenControl.GetVarJOGRequest = New OpenControl.GetVarJOGRequest() inValue.GetVarJOG = GetVarJOG1 Dim retVal As OpenControl.GetVarJOGResponse = CType(Me,OpenControl.OPENcontrolPortType).GetVarJOG(inValue) Return retVal.GetVarJOGR End Function _ Function OpenControl_OPENcontrolPortType_SetVarJOG(ByVal request As OpenControl.SetVarJOGRequest) As OpenControl.SetVarJOGResponse Implements OpenControl.OPENcontrolPortType.SetVarJOG Return MyBase.Channel.SetVarJOG(request) End Function Public Function SetVarJOG(ByVal SetVarJOG1 As OpenControl.SetVarJOG) As OpenControl.SetVarJOGR Dim inValue As OpenControl.SetVarJOGRequest = New OpenControl.SetVarJOGRequest() inValue.SetVarJOG = SetVarJOG1 Dim retVal As OpenControl.SetVarJOGResponse = CType(Me,OpenControl.OPENcontrolPortType).SetVarJOG(inValue) Return retVal.SetVarJOGR End Function _ Function OpenControl_OPENcontrolPortType_SetVarUAS(ByVal request As OpenControl.SetVarUASRequest) As OpenControl.SetVarUASResponse Implements OpenControl.OPENcontrolPortType.SetVarUAS Return MyBase.Channel.SetVarUAS(request) End Function Public Function SetVarUAS(ByVal SetVarUAS1 As OpenControl.SetVarUAS) As OpenControl.SetVarUASR Dim inValue As OpenControl.SetVarUASRequest = New OpenControl.SetVarUASRequest() inValue.SetVarUAS = SetVarUAS1 Dim retVal As OpenControl.SetVarUASResponse = CType(Me,OpenControl.OPENcontrolPortType).SetVarUAS(inValue) Return retVal.SetVarUASR End Function _ Function OpenControl_OPENcontrolPortType_GetVarRCM(ByVal request As OpenControl.GetVarRCMRequest) As OpenControl.GetVarRCMResponse Implements OpenControl.OPENcontrolPortType.GetVarRCM Return MyBase.Channel.GetVarRCM(request) End Function Public Function GetVarRCM(ByVal GetVarRCM1 As OpenControl.GetVarRCM) As OpenControl.GetVarRCMR Dim inValue As OpenControl.GetVarRCMRequest = New OpenControl.GetVarRCMRequest() inValue.GetVarRCM = GetVarRCM1 Dim retVal As OpenControl.GetVarRCMResponse = CType(Me,OpenControl.OPENcontrolPortType).GetVarRCM(inValue) Return retVal.GetVarRCMR End Function _ Function OpenControl_OPENcontrolPortType_SetVarRCM(ByVal request As OpenControl.SetVarRCMRequest) As OpenControl.SetVarRCMResponse Implements OpenControl.OPENcontrolPortType.SetVarRCM Return MyBase.Channel.SetVarRCM(request) End Function Public Function SetVarRCM(ByVal SetVarRCM1 As OpenControl.SetVarRCM) As OpenControl.SetVarRCMR Dim inValue As OpenControl.SetVarRCMRequest = New OpenControl.SetVarRCMRequest() inValue.SetVarRCM = SetVarRCM1 Dim retVal As OpenControl.SetVarRCMResponse = CType(Me,OpenControl.OPENcontrolPortType).SetVarRCM(inValue) Return retVal.SetVarRCMR End Function _ Function OpenControl_OPENcontrolPortType_GetProcVarWord(ByVal request As OpenControl.GetProcVarWordRequest) As OpenControl.GetProcVarWordResponse Implements OpenControl.OPENcontrolPortType.GetProcVarWord Return MyBase.Channel.GetProcVarWord(request) End Function Public Function GetProcVarWord(ByVal GetProcVarWord1 As OpenControl.GetProcVarWord) As OpenControl.GetProcVarWordR Dim inValue As OpenControl.GetProcVarWordRequest = New OpenControl.GetProcVarWordRequest() inValue.GetProcVarWord = GetProcVarWord1 Dim retVal As OpenControl.GetProcVarWordResponse = CType(Me,OpenControl.OPENcontrolPortType).GetProcVarWord(inValue) Return retVal.GetProcVarWordR End Function _ Function OpenControl_OPENcontrolPortType_SetProcVarWord(ByVal request As OpenControl.SetProcVarWordRequest) As OpenControl.SetProcVarWordResponse Implements OpenControl.OPENcontrolPortType.SetProcVarWord Return MyBase.Channel.SetProcVarWord(request) End Function Public Function SetProcVarWord(ByVal SetProcVarWord1 As OpenControl.SetProcVarWord) As OpenControl.SetProcVarWordR Dim inValue As OpenControl.SetProcVarWordRequest = New OpenControl.SetProcVarWordRequest() inValue.SetProcVarWord = SetProcVarWord1 Dim retVal As OpenControl.SetProcVarWordResponse = CType(Me,OpenControl.OPENcontrolPortType).SetProcVarWord(inValue) Return retVal.SetProcVarWordR End Function _ Function OpenControl_OPENcontrolPortType_GetProcVarDouble(ByVal request As OpenControl.GetProcVarDoubleRequest) As OpenControl.GetProcVarDoubleResponse Implements OpenControl.OPENcontrolPortType.GetProcVarDouble Return MyBase.Channel.GetProcVarDouble(request) End Function Public Function GetProcVarDouble(ByVal GetProcVarDouble1 As OpenControl.GetProcVarDouble) As OpenControl.GetProcVarDoubleR Dim inValue As OpenControl.GetProcVarDoubleRequest = New OpenControl.GetProcVarDoubleRequest() inValue.GetProcVarDouble = GetProcVarDouble1 Dim retVal As OpenControl.GetProcVarDoubleResponse = CType(Me,OpenControl.OPENcontrolPortType).GetProcVarDouble(inValue) Return retVal.GetProcVarDoubleR End Function _ Function OpenControl_OPENcontrolPortType_SetProcVarDouble(ByVal request As OpenControl.SetProcVarDoubleRequest) As OpenControl.SetProcVarDoubleResponse Implements OpenControl.OPENcontrolPortType.SetProcVarDouble Return MyBase.Channel.SetProcVarDouble(request) End Function Public Function SetProcVarDouble(ByVal SetProcVarDouble1 As OpenControl.SetProcVarDouble) As OpenControl.SetProcVarDoubleR Dim inValue As OpenControl.SetProcVarDoubleRequest = New OpenControl.SetProcVarDoubleRequest() inValue.SetProcVarDouble = SetProcVarDouble1 Dim retVal As OpenControl.SetProcVarDoubleResponse = CType(Me,OpenControl.OPENcontrolPortType).SetProcVarDouble(inValue) Return retVal.SetProcVarDoubleR End Function _ Function OpenControl_OPENcontrolPortType_SetMdiString(ByVal request As OpenControl.SetMdiStringRequest) As OpenControl.SetMdiStringResponse Implements OpenControl.OPENcontrolPortType.SetMdiString Return MyBase.Channel.SetMdiString(request) End Function Public Function SetMdiString(ByVal SetMdiString1 As OpenControl.SetMdiString) As OpenControl.SetMdiStringR Dim inValue As OpenControl.SetMdiStringRequest = New OpenControl.SetMdiStringRequest() inValue.SetMdiString = SetMdiString1 Dim retVal As OpenControl.SetMdiStringResponse = CType(Me,OpenControl.OPENcontrolPortType).SetMdiString(inValue) Return retVal.SetMdiStringR End Function _ Function OpenControl_OPENcontrolPortType_SetProcessMode(ByVal request As OpenControl.SetProcessModeRequest) As OpenControl.SetProcessModeResponse Implements OpenControl.OPENcontrolPortType.SetProcessMode Return MyBase.Channel.SetProcessMode(request) End Function Public Function SetProcessMode(ByVal SetProcessMode1 As OpenControl.SetProcessMode) As OpenControl.SetProcessModeR Dim inValue As OpenControl.SetProcessModeRequest = New OpenControl.SetProcessModeRequest() inValue.SetProcessMode = SetProcessMode1 Dim retVal As OpenControl.SetProcessModeResponse = CType(Me,OpenControl.OPENcontrolPortType).SetProcessMode(inValue) Return retVal.SetProcessModeR End Function _ Function OpenControl_OPENcontrolPortType_SelectProcess(ByVal request As OpenControl.SelectProcessRequest) As OpenControl.SelectProcessResponse Implements OpenControl.OPENcontrolPortType.SelectProcess Return MyBase.Channel.SelectProcess(request) End Function Public Function SelectProcess(ByVal SelectProcess1 As OpenControl.SelectProcess) As OpenControl.SelectProcessR Dim inValue As OpenControl.SelectProcessRequest = New OpenControl.SelectProcessRequest() inValue.SelectProcess = SelectProcess1 Dim retVal As OpenControl.SelectProcessResponse = CType(Me,OpenControl.OPENcontrolPortType).SelectProcess(inValue) Return retVal.SelectProcessR End Function _ Function OpenControl_OPENcontrolPortType_GetSelectedProcess(ByVal request As OpenControl.GetSelectedProcessRequest) As OpenControl.GetSelectedProcessResponse Implements OpenControl.OPENcontrolPortType.GetSelectedProcess Return MyBase.Channel.GetSelectedProcess(request) End Function Public Function GetSelectedProcess(ByVal GetSelectedProcess1 As OpenControl.GetSelectedProcess) As OpenControl.GetSelectedProcessR Dim inValue As OpenControl.GetSelectedProcessRequest = New OpenControl.GetSelectedProcessRequest() inValue.GetSelectedProcess = GetSelectedProcess1 Dim retVal As OpenControl.GetSelectedProcessResponse = CType(Me,OpenControl.OPENcontrolPortType).GetSelectedProcess(inValue) Return retVal.GetSelectedProcessR End Function _ Function OpenControl_OPENcontrolPortType_SelectProcAxis(ByVal request As OpenControl.SelectProcAxisRequest) As OpenControl.SelectProcAxisResponse Implements OpenControl.OPENcontrolPortType.SelectProcAxis Return MyBase.Channel.SelectProcAxis(request) End Function Public Function SelectProcAxis(ByVal SelectProcAxis1 As OpenControl.SelectProcAxis) As OpenControl.SelectProcAxisR Dim inValue As OpenControl.SelectProcAxisRequest = New OpenControl.SelectProcAxisRequest() inValue.SelectProcAxis = SelectProcAxis1 Dim retVal As OpenControl.SelectProcAxisResponse = CType(Me,OpenControl.OPENcontrolPortType).SelectProcAxis(inValue) Return retVal.SelectProcAxisR End Function _ Function OpenControl_OPENcontrolPortType_SelectPartProgram(ByVal request As OpenControl.SelectPartProgramRequest) As OpenControl.SelectPartProgramResponse Implements OpenControl.OPENcontrolPortType.SelectPartProgram Return MyBase.Channel.SelectPartProgram(request) End Function Public Function SelectPartProgram(ByVal SelectPartProgram1 As OpenControl.SelectPartProgram) As OpenControl.SelectPartProgramR Dim inValue As OpenControl.SelectPartProgramRequest = New OpenControl.SelectPartProgramRequest() inValue.SelectPartProgram = SelectPartProgram1 Dim retVal As OpenControl.SelectPartProgramResponse = CType(Me,OpenControl.OPENcontrolPortType).SelectPartProgram(inValue) Return retVal.SelectPartProgramR End Function _ Function OpenControl_OPENcontrolPortType_SelectPartProgramFromDrive(ByVal request As OpenControl.SelectPartProgramFromDriveRequest) As OpenControl.SelectPartProgramFromDriveResponse Implements OpenControl.OPENcontrolPortType.SelectPartProgramFromDrive Return MyBase.Channel.SelectPartProgramFromDrive(request) End Function Public Function SelectPartProgramFromDrive(ByVal SelectPartProgramFromDrive1 As OpenControl.SelectPartProgramFromDrive) As OpenControl.SelectPartProgramFromDriveR Dim inValue As OpenControl.SelectPartProgramFromDriveRequest = New OpenControl.SelectPartProgramFromDriveRequest() inValue.SelectPartProgramFromDrive = SelectPartProgramFromDrive1 Dim retVal As OpenControl.SelectPartProgramFromDriveResponse = CType(Me,OpenControl.OPENcontrolPortType).SelectPartProgramFromDrive(inValue) Return retVal.SelectPartProgramFromDriveR End Function _ Function OpenControl_OPENcontrolPortType_GetActivePartProgram(ByVal request As OpenControl.GetActivePartProgramRequest) As OpenControl.GetActivePartProgramResponse Implements OpenControl.OPENcontrolPortType.GetActivePartProgram Return MyBase.Channel.GetActivePartProgram(request) End Function Public Function GetActivePartProgram(ByVal GetActivePartProgram1 As OpenControl.GetActivePartProgram) As OpenControl.GetActivePartProgramR Dim inValue As OpenControl.GetActivePartProgramRequest = New OpenControl.GetActivePartProgramRequest() inValue.GetActivePartProgram = GetActivePartProgram1 Dim retVal As OpenControl.GetActivePartProgramResponse = CType(Me,OpenControl.OPENcontrolPortType).GetActivePartProgram(inValue) Return retVal.GetActivePartProgramR End Function _ Function OpenControl_OPENcontrolPortType_GetPartProgramLines(ByVal request As OpenControl.GetPartProgramLinesRequest) As OpenControl.GetPartProgramLinesResponse Implements OpenControl.OPENcontrolPortType.GetPartProgramLines Return MyBase.Channel.GetPartProgramLines(request) End Function Public Function GetPartProgramLines(ByVal GetPartProgramLines1 As OpenControl.GetPartProgramLines) As OpenControl.GetPartProgramLinesR Dim inValue As OpenControl.GetPartProgramLinesRequest = New OpenControl.GetPartProgramLinesRequest() inValue.GetPartProgramLines = GetPartProgramLines1 Dim retVal As OpenControl.GetPartProgramLinesResponse = CType(Me,OpenControl.OPENcontrolPortType).GetPartProgramLines(inValue) Return retVal.GetPartProgramLinesR End Function _ Function OpenControl_OPENcontrolPortType_GetAxOriginNum(ByVal request As OpenControl.GetAxOriginNumRequest) As OpenControl.GetAxOriginNumResponse Implements OpenControl.OPENcontrolPortType.GetAxOriginNum Return MyBase.Channel.GetAxOriginNum(request) End Function Public Function GetAxOriginNum(ByVal GetAxOriginNum1 As OpenControl.GetAxOriginNum) As OpenControl.GetAxOriginNumR Dim inValue As OpenControl.GetAxOriginNumRequest = New OpenControl.GetAxOriginNumRequest() inValue.GetAxOriginNum = GetAxOriginNum1 Dim retVal As OpenControl.GetAxOriginNumResponse = CType(Me,OpenControl.OPENcontrolPortType).GetAxOriginNum(inValue) Return retVal.GetAxOriginNumR End Function _ Function OpenControl_OPENcontrolPortType_GetAxesPosition(ByVal request As OpenControl.GetAxesPositionRequest) As OpenControl.GetAxesPositionResponse Implements OpenControl.OPENcontrolPortType.GetAxesPosition Return MyBase.Channel.GetAxesPosition(request) End Function Public Function GetAxesPosition(ByVal GetAxesPosition1 As OpenControl.GetAxesPosition) As OpenControl.GetAxesPositionR Dim inValue As OpenControl.GetAxesPositionRequest = New OpenControl.GetAxesPositionRequest() inValue.GetAxesPosition = GetAxesPosition1 Dim retVal As OpenControl.GetAxesPositionResponse = CType(Me,OpenControl.OPENcontrolPortType).GetAxesPosition(inValue) Return retVal.GetAxesPositionR End Function _ Function OpenControl_OPENcontrolPortType_GetNcInfo1(ByVal request As OpenControl.GetNcInfo1Request) As OpenControl.GetNcInfo1Response Implements OpenControl.OPENcontrolPortType.GetNcInfo1 Return MyBase.Channel.GetNcInfo1(request) End Function Public Function GetNcInfo1(ByVal GetNcInfo11 As OpenControl.GetNcInfo1) As OpenControl.GetNcInfo1R Dim inValue As OpenControl.GetNcInfo1Request = New OpenControl.GetNcInfo1Request() inValue.GetNcInfo1 = GetNcInfo11 Dim retVal As OpenControl.GetNcInfo1Response = CType(Me,OpenControl.OPENcontrolPortType).GetNcInfo1(inValue) Return retVal.GetNcInfo1R End Function _ Function OpenControl_OPENcontrolPortType_GetNcInfo2(ByVal request As OpenControl.GetNcInfo2Request) As OpenControl.GetNcInfo2Response Implements OpenControl.OPENcontrolPortType.GetNcInfo2 Return MyBase.Channel.GetNcInfo2(request) End Function Public Function GetNcInfo2(ByVal GetNcInfo21 As OpenControl.GetNcInfo2) As OpenControl.GetNcInfo2R Dim inValue As OpenControl.GetNcInfo2Request = New OpenControl.GetNcInfo2Request() inValue.GetNcInfo2 = GetNcInfo21 Dim retVal As OpenControl.GetNcInfo2Response = CType(Me,OpenControl.OPENcontrolPortType).GetNcInfo2(inValue) Return retVal.GetNcInfo2R End Function _ Function OpenControl_OPENcontrolPortType_GetToolNames(ByVal request As OpenControl.GetToolNamesRequest) As OpenControl.GetToolNamesResponse Implements OpenControl.OPENcontrolPortType.GetToolNames Return MyBase.Channel.GetToolNames(request) End Function Public Function GetToolNames(ByVal GetToolNames1 As OpenControl.GetToolNames) As OpenControl.GetToolNamesR Dim inValue As OpenControl.GetToolNamesRequest = New OpenControl.GetToolNamesRequest() inValue.GetToolNames = GetToolNames1 Dim retVal As OpenControl.GetToolNamesResponse = CType(Me,OpenControl.OPENcontrolPortType).GetToolNames(inValue) Return retVal.GetToolNamesR End Function _ Function OpenControl_OPENcontrolPortType_GetProcessStatus(ByVal request As OpenControl.GetProcessStatusRequest) As OpenControl.GetProcessStatusResponse Implements OpenControl.OPENcontrolPortType.GetProcessStatus Return MyBase.Channel.GetProcessStatus(request) End Function Public Function GetProcessStatus(ByVal GetProcessStatus1 As OpenControl.GetProcessStatus) As OpenControl.GetProcessStatusR Dim inValue As OpenControl.GetProcessStatusRequest = New OpenControl.GetProcessStatusRequest() inValue.GetProcessStatus = GetProcessStatus1 Dim retVal As OpenControl.GetProcessStatusResponse = CType(Me,OpenControl.OPENcontrolPortType).GetProcessStatus(inValue) Return retVal.GetProcessStatusR End Function _ Function OpenControl_OPENcontrolPortType_GetBlkNum(ByVal request As OpenControl.GetBlkNumRequest) As OpenControl.GetBlkNumResponse Implements OpenControl.OPENcontrolPortType.GetBlkNum Return MyBase.Channel.GetBlkNum(request) End Function Public Function GetBlkNum(ByVal GetBlkNum1 As OpenControl.GetBlkNum) As OpenControl.GetBlkNumR Dim inValue As OpenControl.GetBlkNumRequest = New OpenControl.GetBlkNumRequest() inValue.GetBlkNum = GetBlkNum1 Dim retVal As OpenControl.GetBlkNumResponse = CType(Me,OpenControl.OPENcontrolPortType).GetBlkNum(inValue) Return retVal.GetBlkNumR End Function _ Function OpenControl_OPENcontrolPortType_ReadErrMsg(ByVal request As OpenControl.ReadErrMsgRequest) As OpenControl.ReadErrMsgResponse Implements OpenControl.OPENcontrolPortType.ReadErrMsg Return MyBase.Channel.ReadErrMsg(request) End Function Public Function ReadErrMsg(ByVal ReadErrMsg1 As OpenControl.ReadErrMsg) As OpenControl.ReadErrMsgR Dim inValue As OpenControl.ReadErrMsgRequest = New OpenControl.ReadErrMsgRequest() inValue.ReadErrMsg = ReadErrMsg1 Dim retVal As OpenControl.ReadErrMsgResponse = CType(Me,OpenControl.OPENcontrolPortType).ReadErrMsg(inValue) Return retVal.ReadErrMsgR End Function _ Function OpenControl_OPENcontrolPortType_ReadPartProgramMsg(ByVal request As OpenControl.ReadPartProgramMsgRequest) As OpenControl.ReadPartProgramMsgResponse Implements OpenControl.OPENcontrolPortType.ReadPartProgramMsg Return MyBase.Channel.ReadPartProgramMsg(request) End Function Public Function ReadPartProgramMsg(ByVal ReadPartProgramMsg1 As OpenControl.ReadPartProgramMsg) As OpenControl.ReadPartProgramMsgR Dim inValue As OpenControl.ReadPartProgramMsgRequest = New OpenControl.ReadPartProgramMsgRequest() inValue.ReadPartProgramMsg = ReadPartProgramMsg1 Dim retVal As OpenControl.ReadPartProgramMsgResponse = CType(Me,OpenControl.OPENcontrolPortType).ReadPartProgramMsg(inValue) Return retVal.ReadPartProgramMsgR End Function _ Function OpenControl_OPENcontrolPortType_GetGCode(ByVal request As OpenControl.GetGCodeRequest) As OpenControl.GetGCodeResponse Implements OpenControl.OPENcontrolPortType.GetGCode Return MyBase.Channel.GetGCode(request) End Function Public Function GetGCode(ByVal GetGCode1 As OpenControl.GetGCode) As OpenControl.GetGCodeR Dim inValue As OpenControl.GetGCodeRequest = New OpenControl.GetGCodeRequest() inValue.GetGCode = GetGCode1 Dim retVal As OpenControl.GetGCodeResponse = CType(Me,OpenControl.OPENcontrolPortType).GetGCode(inValue) Return retVal.GetGCodeR End Function _ Function OpenControl_OPENcontrolPortType_GetMCode(ByVal request As OpenControl.GetMCodeRequest) As OpenControl.GetMCodeResponse Implements OpenControl.OPENcontrolPortType.GetMCode Return MyBase.Channel.GetMCode(request) End Function Public Function GetMCode(ByVal GetMCode1 As OpenControl.GetMCode) As OpenControl.GetMCodeR Dim inValue As OpenControl.GetMCodeRequest = New OpenControl.GetMCodeRequest() inValue.GetMCode = GetMCode1 Dim retVal As OpenControl.GetMCodeResponse = CType(Me,OpenControl.OPENcontrolPortType).GetMCode(inValue) Return retVal.GetMCodeR End Function _ Function OpenControl_OPENcontrolPortType_SkipPProgBlock(ByVal request As OpenControl.SkipPProgBlockRequest) As OpenControl.SkipPProgBlockResponse Implements OpenControl.OPENcontrolPortType.SkipPProgBlock Return MyBase.Channel.SkipPProgBlock(request) End Function Public Function SkipPProgBlock(ByVal SkipPProgBlock1 As OpenControl.SkipPProgBlock) As OpenControl.SkipPProgBlockR Dim inValue As OpenControl.SkipPProgBlockRequest = New OpenControl.SkipPProgBlockRequest() inValue.SkipPProgBlock = SkipPProgBlock1 Dim retVal As OpenControl.SkipPProgBlockResponse = CType(Me,OpenControl.OPENcontrolPortType).SkipPProgBlock(inValue) Return retVal.SkipPProgBlockR End Function _ Function OpenControl_OPENcontrolPortType_Ese(ByVal request As OpenControl.EseRequest) As OpenControl.EseResponse Implements OpenControl.OPENcontrolPortType.Ese Return MyBase.Channel.Ese(request) End Function Public Function Ese(ByVal Ese1 As OpenControl.Ese) As OpenControl.EseR Dim inValue As OpenControl.EseRequest = New OpenControl.EseRequest() inValue.Ese = Ese1 Dim retVal As OpenControl.EseResponse = CType(Me,OpenControl.OPENcontrolPortType).Ese(inValue) Return retVal.EseR End Function _ Function OpenControl_OPENcontrolPortType_EseEx(ByVal request As OpenControl.EseExRequest) As OpenControl.EseExResponse Implements OpenControl.OPENcontrolPortType.EseEx Return MyBase.Channel.EseEx(request) End Function Public Function EseEx(ByVal EseEx1 As OpenControl.EseEx) As OpenControl.EseExR Dim inValue As OpenControl.EseExRequest = New OpenControl.EseExRequest() inValue.EseEx = EseEx1 Dim retVal As OpenControl.EseExResponse = CType(Me,OpenControl.OPENcontrolPortType).EseEx(inValue) Return retVal.EseExR End Function _ Function OpenControl_OPENcontrolPortType_Exe(ByVal request As OpenControl.ExeRequest) As OpenControl.ExeResponse Implements OpenControl.OPENcontrolPortType.Exe Return MyBase.Channel.Exe(request) End Function Public Function Exe(ByVal Exe1 As OpenControl.Exe) As OpenControl.ExeR Dim inValue As OpenControl.ExeRequest = New OpenControl.ExeRequest() inValue.Exe = Exe1 Dim retVal As OpenControl.ExeResponse = CType(Me,OpenControl.OPENcontrolPortType).Exe(inValue) Return retVal.ExeR End Function _ Function OpenControl_OPENcontrolPortType_AxesRef(ByVal request As OpenControl.AxesRefRequest) As OpenControl.AxesRefResponse Implements OpenControl.OPENcontrolPortType.AxesRef Return MyBase.Channel.AxesRef(request) End Function Public Function AxesRef(ByVal AxesRef1 As OpenControl.AxesRef) As OpenControl.AxesRefR Dim inValue As OpenControl.AxesRefRequest = New OpenControl.AxesRefRequest() inValue.AxesRef = AxesRef1 Dim retVal As OpenControl.AxesRefResponse = CType(Me,OpenControl.OPENcontrolPortType).AxesRef(inValue) Return retVal.AxesRefR End Function _ Function OpenControl_OPENcontrolPortType_DncInit(ByVal request As OpenControl.DncInitRequest) As OpenControl.DncInitResponse Implements OpenControl.OPENcontrolPortType.DncInit Return MyBase.Channel.DncInit(request) End Function Public Function DncInit(ByVal DncInit1 As OpenControl.DncInit) As OpenControl.DncInitR Dim inValue As OpenControl.DncInitRequest = New OpenControl.DncInitRequest() inValue.DncInit = DncInit1 Dim retVal As OpenControl.DncInitResponse = CType(Me,OpenControl.OPENcontrolPortType).DncInit(inValue) Return retVal.DncInitR End Function _ Function OpenControl_OPENcontrolPortType_DncData(ByVal request As OpenControl.DncDataRequest) As OpenControl.DncDataResponse Implements OpenControl.OPENcontrolPortType.DncData Return MyBase.Channel.DncData(request) End Function Public Function DncData(ByVal DncData1 As OpenControl.DncData) As OpenControl.DncDataR Dim inValue As OpenControl.DncDataRequest = New OpenControl.DncDataRequest() inValue.DncData = DncData1 Dim retVal As OpenControl.DncDataResponse = CType(Me,OpenControl.OPENcontrolPortType).DncData(inValue) Return retVal.DncDataR End Function _ Function OpenControl_OPENcontrolPortType_DncEof(ByVal request As OpenControl.DncEofRequest) As OpenControl.DncEofResponse Implements OpenControl.OPENcontrolPortType.DncEof Return MyBase.Channel.DncEof(request) End Function Public Function DncEof(ByVal DncEof1 As OpenControl.DncEof) As OpenControl.DncEofR Dim inValue As OpenControl.DncEofRequest = New OpenControl.DncEofRequest() inValue.DncEof = DncEof1 Dim retVal As OpenControl.DncEofResponse = CType(Me,OpenControl.OPENcontrolPortType).DncEof(inValue) Return retVal.DncEofR End Function _ Function OpenControl_OPENcontrolPortType_DncStop(ByVal request As OpenControl.DncStopRequest) As OpenControl.DncStopResponse Implements OpenControl.OPENcontrolPortType.DncStop Return MyBase.Channel.DncStop(request) End Function Public Function DncStop(ByVal DncStop1 As OpenControl.DncStop) As OpenControl.DncStopR Dim inValue As OpenControl.DncStopRequest = New OpenControl.DncStopRequest() inValue.DncStop = DncStop1 Dim retVal As OpenControl.DncStopResponse = CType(Me,OpenControl.OPENcontrolPortType).DncStop(inValue) Return retVal.DncStopR End Function _ Function OpenControl_OPENcontrolPortType_GetAxesInfo3(ByVal request As OpenControl.GetAxesInfo3Request) As OpenControl.GetAxesInfo3Response Implements OpenControl.OPENcontrolPortType.GetAxesInfo3 Return MyBase.Channel.GetAxesInfo3(request) End Function Public Function GetAxesInfo3(ByVal GetAxesInfo31 As OpenControl.GetAxesInfo3) As OpenControl.GetAxesInfo3R Dim inValue As OpenControl.GetAxesInfo3Request = New OpenControl.GetAxesInfo3Request() inValue.GetAxesInfo3 = GetAxesInfo31 Dim retVal As OpenControl.GetAxesInfo3Response = CType(Me,OpenControl.OPENcontrolPortType).GetAxesInfo3(inValue) Return retVal.GetAxesInfo3R End Function _ Function OpenControl_OPENcontrolPortType_GetCodeNumber(ByVal request As OpenControl.GetCodeNumberRequest) As OpenControl.GetCodeNumberResponse Implements OpenControl.OPENcontrolPortType.GetCodeNumber Return MyBase.Channel.GetCodeNumber(request) End Function Public Function GetCodeNumber(ByVal GetCodeNumber1 As OpenControl.GetCodeNumber) As OpenControl.GetCodeNumberR Dim inValue As OpenControl.GetCodeNumberRequest = New OpenControl.GetCodeNumberRequest() inValue.GetCodeNumber = GetCodeNumber1 Dim retVal As OpenControl.GetCodeNumberResponse = CType(Me,OpenControl.OPENcontrolPortType).GetCodeNumber(inValue) Return retVal.GetCodeNumberR End Function _ Function OpenControl_OPENcontrolPortType_GetOptions(ByVal request As OpenControl.GetOptionsRequest) As OpenControl.GetOptionsResponse Implements OpenControl.OPENcontrolPortType.GetOptions Return MyBase.Channel.GetOptions(request) End Function Public Function GetOptions(ByVal GetOptions1 As OpenControl.GetOptions) As OpenControl.GetOptionsR Dim inValue As OpenControl.GetOptionsRequest = New OpenControl.GetOptionsRequest() inValue.GetOptions = GetOptions1 Dim retVal As OpenControl.GetOptionsResponse = CType(Me,OpenControl.OPENcontrolPortType).GetOptions(inValue) Return retVal.GetOptionsR End Function _ Function OpenControl_OPENcontrolPortType_GetDateTime(ByVal request As OpenControl.GetDateTimeRequest) As OpenControl.GetDateTimeResponse Implements OpenControl.OPENcontrolPortType.GetDateTime Return MyBase.Channel.GetDateTime(request) End Function Public Function GetDateTime(ByVal GetDateTime1 As OpenControl.GetDateTime) As OpenControl.GetDateTimeR Dim inValue As OpenControl.GetDateTimeRequest = New OpenControl.GetDateTimeRequest() inValue.GetDateTime = GetDateTime1 Dim retVal As OpenControl.GetDateTimeResponse = CType(Me,OpenControl.OPENcontrolPortType).GetDateTime(inValue) Return retVal.GetDateTimeR End Function _ Function OpenControl_OPENcontrolPortType_SetDateTime(ByVal request As OpenControl.SetDateTimeRequest) As OpenControl.SetDateTimeResponse Implements OpenControl.OPENcontrolPortType.SetDateTime Return MyBase.Channel.SetDateTime(request) End Function Public Function SetDateTime(ByVal SetDateTime1 As OpenControl.SetDateTime) As OpenControl.SetDateTimeR Dim inValue As OpenControl.SetDateTimeRequest = New OpenControl.SetDateTimeRequest() inValue.SetDateTime = SetDateTime1 Dim retVal As OpenControl.SetDateTimeResponse = CType(Me,OpenControl.OPENcontrolPortType).SetDateTime(inValue) Return retVal.SetDateTimeR End Function _ Function OpenControl_OPENcontrolPortType_GetSerialNumber(ByVal request As OpenControl.GetSerialNumberRequest) As OpenControl.GetSerialNumberResponse Implements OpenControl.OPENcontrolPortType.GetSerialNumber Return MyBase.Channel.GetSerialNumber(request) End Function Public Function GetSerialNumber(ByVal GetSerialNumber1 As OpenControl.GetSerialNumber) As OpenControl.GetSerialNumberR Dim inValue As OpenControl.GetSerialNumberRequest = New OpenControl.GetSerialNumberRequest() inValue.GetSerialNumber = GetSerialNumber1 Dim retVal As OpenControl.GetSerialNumberResponse = CType(Me,OpenControl.OPENcontrolPortType).GetSerialNumber(inValue) Return retVal.GetSerialNumberR End Function _ Function OpenControl_OPENcontrolPortType_PutFile(ByVal request As OpenControl.PutFileRequest) As OpenControl.PutFileResponse Implements OpenControl.OPENcontrolPortType.PutFile Return MyBase.Channel.PutFile(request) End Function Public Function PutFile(ByVal PutFile1 As OpenControl.PutFile) As OpenControl.PutFileR Dim inValue As OpenControl.PutFileRequest = New OpenControl.PutFileRequest() inValue.PutFile = PutFile1 Dim retVal As OpenControl.PutFileResponse = CType(Me,OpenControl.OPENcontrolPortType).PutFile(inValue) Return retVal.PutFileR End Function _ Function OpenControl_OPENcontrolPortType_GetFile(ByVal request As OpenControl.GetFileRequest) As OpenControl.GetFileResponse Implements OpenControl.OPENcontrolPortType.GetFile Return MyBase.Channel.GetFile(request) End Function Public Function GetFile(ByVal GetFile1 As OpenControl.GetFile) As OpenControl.GetFileR Dim inValue As OpenControl.GetFileRequest = New OpenControl.GetFileRequest() inValue.GetFile = GetFile1 Dim retVal As OpenControl.GetFileResponse = CType(Me,OpenControl.OPENcontrolPortType).GetFile(inValue) Return retVal.GetFileR End Function _ Function OpenControl_OPENcontrolPortType_PutBinaryFile(ByVal request As OpenControl.PutBinaryFileRequest) As OpenControl.PutBinaryFileResponse Implements OpenControl.OPENcontrolPortType.PutBinaryFile Return MyBase.Channel.PutBinaryFile(request) End Function Public Function PutBinaryFile(ByVal PutBinaryFile1 As OpenControl.PutBinaryFile) As OpenControl.PutBinaryFileR Dim inValue As OpenControl.PutBinaryFileRequest = New OpenControl.PutBinaryFileRequest() inValue.PutBinaryFile = PutBinaryFile1 Dim retVal As OpenControl.PutBinaryFileResponse = CType(Me,OpenControl.OPENcontrolPortType).PutBinaryFile(inValue) Return retVal.PutBinaryFileR End Function _ Function OpenControl_OPENcontrolPortType_GetBinaryFile(ByVal request As OpenControl.GetBinaryFileRequest) As OpenControl.GetBinaryFileResponse Implements OpenControl.OPENcontrolPortType.GetBinaryFile Return MyBase.Channel.GetBinaryFile(request) End Function Public Function GetBinaryFile(ByVal GetBinaryFile1 As OpenControl.GetBinaryFile) As OpenControl.GetBinaryFileR Dim inValue As OpenControl.GetBinaryFileRequest = New OpenControl.GetBinaryFileRequest() inValue.GetBinaryFile = GetBinaryFile1 Dim retVal As OpenControl.GetBinaryFileResponse = CType(Me,OpenControl.OPENcontrolPortType).GetBinaryFile(inValue) Return retVal.GetBinaryFileR End Function _ Function OpenControl_OPENcontrolPortType_LogFSSetSecurityLevel(ByVal request As OpenControl.LogFSSetSecurityLevelRequest) As OpenControl.LogFSSetSecurityLevelResponse Implements OpenControl.OPENcontrolPortType.LogFSSetSecurityLevel Return MyBase.Channel.LogFSSetSecurityLevel(request) End Function Public Function LogFSSetSecurityLevel(ByVal LogFSSetSecurityLevel1 As OpenControl.LogFSSetSecurityLevel) As OpenControl.LogFSSetSecurityLevelR Dim inValue As OpenControl.LogFSSetSecurityLevelRequest = New OpenControl.LogFSSetSecurityLevelRequest() inValue.LogFSSetSecurityLevel = LogFSSetSecurityLevel1 Dim retVal As OpenControl.LogFSSetSecurityLevelResponse = CType(Me,OpenControl.OPENcontrolPortType).LogFSSetSecurityLevel(inValue) Return retVal.LogFSSetSecurityLevelR End Function _ Function OpenControl_OPENcontrolPortType_LogFSGetSecurityLevel(ByVal request As OpenControl.LogFSGetSecurityLevelRequest) As OpenControl.LogFSGetSecurityLevelResponse Implements OpenControl.OPENcontrolPortType.LogFSGetSecurityLevel Return MyBase.Channel.LogFSGetSecurityLevel(request) End Function Public Function LogFSGetSecurityLevel(ByVal LogFSGetSecurityLevel1 As OpenControl.LogFSGetSecurityLevel) As OpenControl.LogFSGetSecurityLevelR Dim inValue As OpenControl.LogFSGetSecurityLevelRequest = New OpenControl.LogFSGetSecurityLevelRequest() inValue.LogFSGetSecurityLevel = LogFSGetSecurityLevel1 Dim retVal As OpenControl.LogFSGetSecurityLevelResponse = CType(Me,OpenControl.OPENcontrolPortType).LogFSGetSecurityLevel(inValue) Return retVal.LogFSGetSecurityLevelR End Function _ Function OpenControl_OPENcontrolPortType_LogFSLongFileNames(ByVal request As OpenControl.LogFSLongFileNamesRequest) As OpenControl.LogFSLongFileNamesResponse Implements OpenControl.OPENcontrolPortType.LogFSLongFileNames Return MyBase.Channel.LogFSLongFileNames(request) End Function Public Function LogFSLongFileNames(ByVal LogFSLongFileNames1 As OpenControl.LogFSLongFileNames) As OpenControl.LogFSLongFileNamesR Dim inValue As OpenControl.LogFSLongFileNamesRequest = New OpenControl.LogFSLongFileNamesRequest() inValue.LogFSLongFileNames = LogFSLongFileNames1 Dim retVal As OpenControl.LogFSLongFileNamesResponse = CType(Me,OpenControl.OPENcontrolPortType).LogFSLongFileNames(inValue) Return retVal.LogFSLongFileNamesR End Function _ Function OpenControl_OPENcontrolPortType_LogFSGetNumDrive(ByVal request As OpenControl.LogFSGetNumDriveRequest) As OpenControl.LogFSGetNumDriveResponse Implements OpenControl.OPENcontrolPortType.LogFSGetNumDrive Return MyBase.Channel.LogFSGetNumDrive(request) End Function Public Function LogFSGetNumDrive(ByVal LogFSGetNumDrive1 As OpenControl.LogFSGetNumDrive) As OpenControl.LogFSGetNumDriveR Dim inValue As OpenControl.LogFSGetNumDriveRequest = New OpenControl.LogFSGetNumDriveRequest() inValue.LogFSGetNumDrive = LogFSGetNumDrive1 Dim retVal As OpenControl.LogFSGetNumDriveResponse = CType(Me,OpenControl.OPENcontrolPortType).LogFSGetNumDrive(inValue) Return retVal.LogFSGetNumDriveR End Function _ Function OpenControl_OPENcontrolPortType_LogFSGetDriveList(ByVal request As OpenControl.LogFSGetDriveListRequest) As OpenControl.LogFSGetDriveListResponse Implements OpenControl.OPENcontrolPortType.LogFSGetDriveList Return MyBase.Channel.LogFSGetDriveList(request) End Function Public Function LogFSGetDriveList(ByVal LogFSGetDriveList1 As OpenControl.LogFSGetDriveList) As OpenControl.LogFSGetDriveListR Dim inValue As OpenControl.LogFSGetDriveListRequest = New OpenControl.LogFSGetDriveListRequest() inValue.LogFSGetDriveList = LogFSGetDriveList1 Dim retVal As OpenControl.LogFSGetDriveListResponse = CType(Me,OpenControl.OPENcontrolPortType).LogFSGetDriveList(inValue) Return retVal.LogFSGetDriveListR End Function _ Function OpenControl_OPENcontrolPortType_LogFSGetHiddenDriveList(ByVal request As OpenControl.LogFSGetHiddenDriveListRequest) As OpenControl.LogFSGetHiddenDriveListResponse Implements OpenControl.OPENcontrolPortType.LogFSGetHiddenDriveList Return MyBase.Channel.LogFSGetHiddenDriveList(request) End Function Public Function LogFSGetHiddenDriveList(ByVal LogFSGetHiddenDriveList1 As OpenControl.LogFSGetHiddenDriveList) As OpenControl.LogFSGetHiddenDriveListR Dim inValue As OpenControl.LogFSGetHiddenDriveListRequest = New OpenControl.LogFSGetHiddenDriveListRequest() inValue.LogFSGetHiddenDriveList = LogFSGetHiddenDriveList1 Dim retVal As OpenControl.LogFSGetHiddenDriveListResponse = CType(Me,OpenControl.OPENcontrolPortType).LogFSGetHiddenDriveList(inValue) Return retVal.LogFSGetHiddenDriveListR End Function _ Function OpenControl_OPENcontrolPortType_LogFSGetDrivePath(ByVal request As OpenControl.LogFSGetDrivePathRequest) As OpenControl.LogFSGetDrivePathResponse Implements OpenControl.OPENcontrolPortType.LogFSGetDrivePath Return MyBase.Channel.LogFSGetDrivePath(request) End Function Public Function LogFSGetDrivePath(ByVal LogFSGetDrivePath1 As OpenControl.LogFSGetDrivePath) As OpenControl.LogFSGetDrivePathR Dim inValue As OpenControl.LogFSGetDrivePathRequest = New OpenControl.LogFSGetDrivePathRequest() inValue.LogFSGetDrivePath = LogFSGetDrivePath1 Dim retVal As OpenControl.LogFSGetDrivePathResponse = CType(Me,OpenControl.OPENcontrolPortType).LogFSGetDrivePath(inValue) Return retVal.LogFSGetDrivePathR End Function _ Function OpenControl_OPENcontrolPortType_LogFSAddDrive(ByVal request As OpenControl.LogFSAddDriveRequest) As OpenControl.LogFSAddDriveResponse Implements OpenControl.OPENcontrolPortType.LogFSAddDrive Return MyBase.Channel.LogFSAddDrive(request) End Function Public Function LogFSAddDrive(ByVal LogFSAddDrive1 As OpenControl.LogFSAddDrive) As OpenControl.LogFSAddDriveR Dim inValue As OpenControl.LogFSAddDriveRequest = New OpenControl.LogFSAddDriveRequest() inValue.LogFSAddDrive = LogFSAddDrive1 Dim retVal As OpenControl.LogFSAddDriveResponse = CType(Me,OpenControl.OPENcontrolPortType).LogFSAddDrive(inValue) Return retVal.LogFSAddDriveR End Function _ Function OpenControl_OPENcontrolPortType_LogFSRemoveDrive(ByVal request As OpenControl.LogFSRemoveDriveRequest) As OpenControl.LogFSRemoveDriveResponse Implements OpenControl.OPENcontrolPortType.LogFSRemoveDrive Return MyBase.Channel.LogFSRemoveDrive(request) End Function Public Function LogFSRemoveDrive(ByVal LogFSRemoveDrive1 As OpenControl.LogFSRemoveDrive) As OpenControl.LogFSRemoveDriveR Dim inValue As OpenControl.LogFSRemoveDriveRequest = New OpenControl.LogFSRemoveDriveRequest() inValue.LogFSRemoveDrive = LogFSRemoveDrive1 Dim retVal As OpenControl.LogFSRemoveDriveResponse = CType(Me,OpenControl.OPENcontrolPortType).LogFSRemoveDrive(inValue) Return retVal.LogFSRemoveDriveR End Function _ Function OpenControl_OPENcontrolPortType_LogFSReloadDriveList(ByVal request As OpenControl.LogFSReloadDriveListRequest) As OpenControl.LogFSReloadDriveListResponse Implements OpenControl.OPENcontrolPortType.LogFSReloadDriveList Return MyBase.Channel.LogFSReloadDriveList(request) End Function Public Function LogFSReloadDriveList(ByVal LogFSReloadDriveList1 As OpenControl.LogFSReloadDriveList) As OpenControl.LogFSReloadDriveListR Dim inValue As OpenControl.LogFSReloadDriveListRequest = New OpenControl.LogFSReloadDriveListRequest() inValue.LogFSReloadDriveList = LogFSReloadDriveList1 Dim retVal As OpenControl.LogFSReloadDriveListResponse = CType(Me,OpenControl.OPENcontrolPortType).LogFSReloadDriveList(inValue) Return retVal.LogFSReloadDriveListR End Function _ Function OpenControl_OPENcontrolPortType_LogFSCreateDir(ByVal request As OpenControl.LogFSCreateDirRequest) As OpenControl.LogFSCreateDirResponse Implements OpenControl.OPENcontrolPortType.LogFSCreateDir Return MyBase.Channel.LogFSCreateDir(request) End Function Public Function LogFSCreateDir(ByVal LogFSCreateDir1 As OpenControl.LogFSCreateDir) As OpenControl.LogFSCreateDirR Dim inValue As OpenControl.LogFSCreateDirRequest = New OpenControl.LogFSCreateDirRequest() inValue.LogFSCreateDir = LogFSCreateDir1 Dim retVal As OpenControl.LogFSCreateDirResponse = CType(Me,OpenControl.OPENcontrolPortType).LogFSCreateDir(inValue) Return retVal.LogFSCreateDirR End Function _ Function OpenControl_OPENcontrolPortType_LogFSCreateFile(ByVal request As OpenControl.LogFSCreateFileRequest) As OpenControl.LogFSCreateFileResponse Implements OpenControl.OPENcontrolPortType.LogFSCreateFile Return MyBase.Channel.LogFSCreateFile(request) End Function Public Function LogFSCreateFile(ByVal LogFSCreateFile1 As OpenControl.LogFSCreateFile) As OpenControl.LogFSCreateFileR Dim inValue As OpenControl.LogFSCreateFileRequest = New OpenControl.LogFSCreateFileRequest() inValue.LogFSCreateFile = LogFSCreateFile1 Dim retVal As OpenControl.LogFSCreateFileResponse = CType(Me,OpenControl.OPENcontrolPortType).LogFSCreateFile(inValue) Return retVal.LogFSCreateFileR End Function _ Function OpenControl_OPENcontrolPortType_LogFSGetFileSize(ByVal request As OpenControl.LogFSGetFileSizeRequest) As OpenControl.LogFSGetFileSizeResponse Implements OpenControl.OPENcontrolPortType.LogFSGetFileSize Return MyBase.Channel.LogFSGetFileSize(request) End Function Public Function LogFSGetFileSize(ByVal LogFSGetFileSize1 As OpenControl.LogFSGetFileSize) As OpenControl.LogFSGetFileSizeR Dim inValue As OpenControl.LogFSGetFileSizeRequest = New OpenControl.LogFSGetFileSizeRequest() inValue.LogFSGetFileSize = LogFSGetFileSize1 Dim retVal As OpenControl.LogFSGetFileSizeResponse = CType(Me,OpenControl.OPENcontrolPortType).LogFSGetFileSize(inValue) Return retVal.LogFSGetFileSizeR End Function _ Function OpenControl_OPENcontrolPortType_LogFSGetFileAttrib(ByVal request As OpenControl.LogFSGetFileAttribRequest) As OpenControl.LogFSGetFileAttribResponse Implements OpenControl.OPENcontrolPortType.LogFSGetFileAttrib Return MyBase.Channel.LogFSGetFileAttrib(request) End Function Public Function LogFSGetFileAttrib(ByVal LogFSGetFileAttrib1 As OpenControl.LogFSGetFileAttrib) As OpenControl.LogFSGetFileAttribR Dim inValue As OpenControl.LogFSGetFileAttribRequest = New OpenControl.LogFSGetFileAttribRequest() inValue.LogFSGetFileAttrib = LogFSGetFileAttrib1 Dim retVal As OpenControl.LogFSGetFileAttribResponse = CType(Me,OpenControl.OPENcontrolPortType).LogFSGetFileAttrib(inValue) Return retVal.LogFSGetFileAttribR End Function _ Function OpenControl_OPENcontrolPortType_LogFSSetFileAttrib(ByVal request As OpenControl.LogFSSetFileAttribRequest) As OpenControl.LogFSSetFileAttribResponse Implements OpenControl.OPENcontrolPortType.LogFSSetFileAttrib Return MyBase.Channel.LogFSSetFileAttrib(request) End Function Public Function LogFSSetFileAttrib(ByVal LogFSSetFileAttrib1 As OpenControl.LogFSSetFileAttrib) As OpenControl.LogFSSetFileAttribR Dim inValue As OpenControl.LogFSSetFileAttribRequest = New OpenControl.LogFSSetFileAttribRequest() inValue.LogFSSetFileAttrib = LogFSSetFileAttrib1 Dim retVal As OpenControl.LogFSSetFileAttribResponse = CType(Me,OpenControl.OPENcontrolPortType).LogFSSetFileAttrib(inValue) Return retVal.LogFSSetFileAttribR End Function _ Function OpenControl_OPENcontrolPortType_LogFSChangeFileAttrib(ByVal request As OpenControl.LogFSChangeFileAttribRequest) As OpenControl.LogFSChangeFileAttribResponse Implements OpenControl.OPENcontrolPortType.LogFSChangeFileAttrib Return MyBase.Channel.LogFSChangeFileAttrib(request) End Function Public Function LogFSChangeFileAttrib(ByVal LogFSChangeFileAttrib1 As OpenControl.LogFSChangeFileAttrib) As OpenControl.LogFSChangeFileAttribR Dim inValue As OpenControl.LogFSChangeFileAttribRequest = New OpenControl.LogFSChangeFileAttribRequest() inValue.LogFSChangeFileAttrib = LogFSChangeFileAttrib1 Dim retVal As OpenControl.LogFSChangeFileAttribResponse = CType(Me,OpenControl.OPENcontrolPortType).LogFSChangeFileAttrib(inValue) Return retVal.LogFSChangeFileAttribR End Function _ Function OpenControl_OPENcontrolPortType_LogFSFindFirst(ByVal request As OpenControl.LogFSFindFirstRequest) As OpenControl.LogFSFindFirstResponse Implements OpenControl.OPENcontrolPortType.LogFSFindFirst Return MyBase.Channel.LogFSFindFirst(request) End Function Public Function LogFSFindFirst(ByVal LogFSFindFirst1 As OpenControl.LogFSFindFirst) As OpenControl.LogFSFindFirstR Dim inValue As OpenControl.LogFSFindFirstRequest = New OpenControl.LogFSFindFirstRequest() inValue.LogFSFindFirst = LogFSFindFirst1 Dim retVal As OpenControl.LogFSFindFirstResponse = CType(Me,OpenControl.OPENcontrolPortType).LogFSFindFirst(inValue) Return retVal.LogFSFindFirstR End Function _ Function OpenControl_OPENcontrolPortType_LogFSFindNext(ByVal request As OpenControl.LogFSFindNextRequest) As OpenControl.LogFSFindNextResponse Implements OpenControl.OPENcontrolPortType.LogFSFindNext Return MyBase.Channel.LogFSFindNext(request) End Function Public Function LogFSFindNext(ByVal LogFSFindNext1 As OpenControl.LogFSFindNext) As OpenControl.LogFSFindNextR Dim inValue As OpenControl.LogFSFindNextRequest = New OpenControl.LogFSFindNextRequest() inValue.LogFSFindNext = LogFSFindNext1 Dim retVal As OpenControl.LogFSFindNextResponse = CType(Me,OpenControl.OPENcontrolPortType).LogFSFindNext(inValue) Return retVal.LogFSFindNextR End Function _ Function OpenControl_OPENcontrolPortType_LogFSFindClose(ByVal request As OpenControl.LogFSFindCloseRequest) As OpenControl.LogFSFindCloseResponse Implements OpenControl.OPENcontrolPortType.LogFSFindClose Return MyBase.Channel.LogFSFindClose(request) End Function Public Function LogFSFindClose(ByVal LogFSFindClose1 As OpenControl.LogFSFindClose) As OpenControl.LogFSFindCloseR Dim inValue As OpenControl.LogFSFindCloseRequest = New OpenControl.LogFSFindCloseRequest() inValue.LogFSFindClose = LogFSFindClose1 Dim retVal As OpenControl.LogFSFindCloseResponse = CType(Me,OpenControl.OPENcontrolPortType).LogFSFindClose(inValue) Return retVal.LogFSFindCloseR End Function _ Function OpenControl_OPENcontrolPortType_LogFSRemoveFile(ByVal request As OpenControl.LogFSRemoveFileRequest) As OpenControl.LogFSRemoveFileResponse Implements OpenControl.OPENcontrolPortType.LogFSRemoveFile Return MyBase.Channel.LogFSRemoveFile(request) End Function Public Function LogFSRemoveFile(ByVal LogFSRemoveFile1 As OpenControl.LogFSRemoveFile) As OpenControl.LogFSRemoveFileR Dim inValue As OpenControl.LogFSRemoveFileRequest = New OpenControl.LogFSRemoveFileRequest() inValue.LogFSRemoveFile = LogFSRemoveFile1 Dim retVal As OpenControl.LogFSRemoveFileResponse = CType(Me,OpenControl.OPENcontrolPortType).LogFSRemoveFile(inValue) Return retVal.LogFSRemoveFileR End Function _ Function OpenControl_OPENcontrolPortType_LogFSRemoveDir(ByVal request As OpenControl.LogFSRemoveDirRequest) As OpenControl.LogFSRemoveDirResponse Implements OpenControl.OPENcontrolPortType.LogFSRemoveDir Return MyBase.Channel.LogFSRemoveDir(request) End Function Public Function LogFSRemoveDir(ByVal LogFSRemoveDir1 As OpenControl.LogFSRemoveDir) As OpenControl.LogFSRemoveDirR Dim inValue As OpenControl.LogFSRemoveDirRequest = New OpenControl.LogFSRemoveDirRequest() inValue.LogFSRemoveDir = LogFSRemoveDir1 Dim retVal As OpenControl.LogFSRemoveDirResponse = CType(Me,OpenControl.OPENcontrolPortType).LogFSRemoveDir(inValue) Return retVal.LogFSRemoveDirR End Function _ Function OpenControl_OPENcontrolPortType_LogFSRename(ByVal request As OpenControl.LogFSRenameRequest) As OpenControl.LogFSRenameResponse Implements OpenControl.OPENcontrolPortType.LogFSRename Return MyBase.Channel.LogFSRename(request) End Function Public Function LogFSRename(ByVal LogFSRename1 As OpenControl.LogFSRename) As OpenControl.LogFSRenameR Dim inValue As OpenControl.LogFSRenameRequest = New OpenControl.LogFSRenameRequest() inValue.LogFSRename = LogFSRename1 Dim retVal As OpenControl.LogFSRenameResponse = CType(Me,OpenControl.OPENcontrolPortType).LogFSRename(inValue) Return retVal.LogFSRenameR End Function _ Function OpenControl_OPENcontrolPortType_LogFSCopyFile(ByVal request As OpenControl.LogFSCopyFileRequest) As OpenControl.LogFSCopyFileResponse Implements OpenControl.OPENcontrolPortType.LogFSCopyFile Return MyBase.Channel.LogFSCopyFile(request) End Function Public Function LogFSCopyFile(ByVal LogFSCopyFile1 As OpenControl.LogFSCopyFile) As OpenControl.LogFSCopyFileR Dim inValue As OpenControl.LogFSCopyFileRequest = New OpenControl.LogFSCopyFileRequest() inValue.LogFSCopyFile = LogFSCopyFile1 Dim retVal As OpenControl.LogFSCopyFileResponse = CType(Me,OpenControl.OPENcontrolPortType).LogFSCopyFile(inValue) Return retVal.LogFSCopyFileR End Function _ Function OpenControl_OPENcontrolPortType_LogFSGetInfo(ByVal request As OpenControl.LogFSGetInfoRequest) As OpenControl.LogFSGetInfoResponse Implements OpenControl.OPENcontrolPortType.LogFSGetInfo Return MyBase.Channel.LogFSGetInfo(request) End Function Public Function LogFSGetInfo(ByVal LogFSGetInfo1 As OpenControl.LogFSGetInfo) As OpenControl.LogFSGetInfoR Dim inValue As OpenControl.LogFSGetInfoRequest = New OpenControl.LogFSGetInfoRequest() inValue.LogFSGetInfo = LogFSGetInfo1 Dim retVal As OpenControl.LogFSGetInfoResponse = CType(Me,OpenControl.OPENcontrolPortType).LogFSGetInfo(inValue) Return retVal.LogFSGetInfoR End Function _ Function OpenControl_OPENcontrolPortType_GetAvailableCustomEvents(ByVal request As OpenControl.GetAvailableCustomEventsRequest) As OpenControl.GetAvailableCustomEventsResponse Implements OpenControl.OPENcontrolPortType.GetAvailableCustomEvents Return MyBase.Channel.GetAvailableCustomEvents(request) End Function Public Function GetAvailableCustomEvents(ByVal GetAvailableCustomEvents1 As OpenControl.GetAvailableCustomEvents) As OpenControl.GetAvailableCustomEventsR Dim inValue As OpenControl.GetAvailableCustomEventsRequest = New OpenControl.GetAvailableCustomEventsRequest() inValue.GetAvailableCustomEvents = GetAvailableCustomEvents1 Dim retVal As OpenControl.GetAvailableCustomEventsResponse = CType(Me,OpenControl.OPENcontrolPortType).GetAvailableCustomEvents(inValue) Return retVal.GetAvailableCustomEventsR End Function _ Function OpenControl_OPENcontrolPortType_GetSysTick(ByVal request As OpenControl.GetSysTickRequest) As OpenControl.GetSysTickResponse Implements OpenControl.OPENcontrolPortType.GetSysTick Return MyBase.Channel.GetSysTick(request) End Function Public Function GetSysTick(ByVal GetSysTick1 As OpenControl.GetSysTick) As OpenControl.GetSysTickR Dim inValue As OpenControl.GetSysTickRequest = New OpenControl.GetSysTickRequest() inValue.GetSysTick = GetSysTick1 Dim retVal As OpenControl.GetSysTickResponse = CType(Me,OpenControl.OPENcontrolPortType).GetSysTick(inValue) Return retVal.GetSysTickR End Function _ Function OpenControl_OPENcontrolPortType_GetProcessConfNum(ByVal request As OpenControl.GetProcessConfNumRequest) As OpenControl.GetProcessConfNumResponse Implements OpenControl.OPENcontrolPortType.GetProcessConfNum Return MyBase.Channel.GetProcessConfNum(request) End Function Public Function GetProcessConfNum(ByVal GetProcessConfNum1 As OpenControl.GetProcessConfNum) As OpenControl.GetProcessConfNumR Dim inValue As OpenControl.GetProcessConfNumRequest = New OpenControl.GetProcessConfNumRequest() inValue.GetProcessConfNum = GetProcessConfNum1 Dim retVal As OpenControl.GetProcessConfNumResponse = CType(Me,OpenControl.OPENcontrolPortType).GetProcessConfNum(inValue) Return retVal.GetProcessConfNumR End Function _ Function OpenControl_OPENcontrolPortType_MonOpenChannel(ByVal request As OpenControl.MonOpenChannelRequest) As OpenControl.MonOpenChannelResponse Implements OpenControl.OPENcontrolPortType.MonOpenChannel Return MyBase.Channel.MonOpenChannel(request) End Function Public Function MonOpenChannel(ByVal MonOpenChannel1 As OpenControl.MonOpenChannel) As OpenControl.MonOpenChannelR Dim inValue As OpenControl.MonOpenChannelRequest = New OpenControl.MonOpenChannelRequest() inValue.MonOpenChannel = MonOpenChannel1 Dim retVal As OpenControl.MonOpenChannelResponse = CType(Me,OpenControl.OPENcontrolPortType).MonOpenChannel(inValue) Return retVal.MonOpenChannelR End Function _ Function OpenControl_OPENcontrolPortType_MonCloseChannel(ByVal request As OpenControl.MonCloseChannelRequest) As OpenControl.MonCloseChannelResponse Implements OpenControl.OPENcontrolPortType.MonCloseChannel Return MyBase.Channel.MonCloseChannel(request) End Function Public Function MonCloseChannel(ByVal MonCloseChannel1 As OpenControl.MonCloseChannel) As OpenControl.MonCloseChannelR Dim inValue As OpenControl.MonCloseChannelRequest = New OpenControl.MonCloseChannelRequest() inValue.MonCloseChannel = MonCloseChannel1 Dim retVal As OpenControl.MonCloseChannelResponse = CType(Me,OpenControl.OPENcontrolPortType).MonCloseChannel(inValue) Return retVal.MonCloseChannelR End Function _ Function OpenControl_OPENcontrolPortType_MonAddVariable(ByVal request As OpenControl.MonAddVariableRequest) As OpenControl.MonAddVariableResponse Implements OpenControl.OPENcontrolPortType.MonAddVariable Return MyBase.Channel.MonAddVariable(request) End Function Public Function MonAddVariable(ByVal MonAddVariable1 As OpenControl.MonAddVariable) As OpenControl.MonAddVariableR Dim inValue As OpenControl.MonAddVariableRequest = New OpenControl.MonAddVariableRequest() inValue.MonAddVariable = MonAddVariable1 Dim retVal As OpenControl.MonAddVariableResponse = CType(Me,OpenControl.OPENcontrolPortType).MonAddVariable(inValue) Return retVal.MonAddVariableR End Function _ Function OpenControl_OPENcontrolPortType_MonDeleteVariable(ByVal request As OpenControl.MonDeleteVariableRequest) As OpenControl.MonDeleteVariableResponse Implements OpenControl.OPENcontrolPortType.MonDeleteVariable Return MyBase.Channel.MonDeleteVariable(request) End Function Public Function MonDeleteVariable(ByVal MonDeleteVariable1 As OpenControl.MonDeleteVariable) As OpenControl.MonDeleteVariableR Dim inValue As OpenControl.MonDeleteVariableRequest = New OpenControl.MonDeleteVariableRequest() inValue.MonDeleteVariable = MonDeleteVariable1 Dim retVal As OpenControl.MonDeleteVariableResponse = CType(Me,OpenControl.OPENcontrolPortType).MonDeleteVariable(inValue) Return retVal.MonDeleteVariableR End Function _ Function OpenControl_OPENcontrolPortType_MonStartSampling(ByVal request As OpenControl.MonStartSamplingRequest) As OpenControl.MonStartSamplingResponse Implements OpenControl.OPENcontrolPortType.MonStartSampling Return MyBase.Channel.MonStartSampling(request) End Function Public Function MonStartSampling(ByVal MonStartSampling1 As OpenControl.MonStartSampling) As OpenControl.MonStartSamplingR Dim inValue As OpenControl.MonStartSamplingRequest = New OpenControl.MonStartSamplingRequest() inValue.MonStartSampling = MonStartSampling1 Dim retVal As OpenControl.MonStartSamplingResponse = CType(Me,OpenControl.OPENcontrolPortType).MonStartSampling(inValue) Return retVal.MonStartSamplingR End Function _ Function OpenControl_OPENcontrolPortType_MonStopSampling(ByVal request As OpenControl.MonStopSamplingRequest) As OpenControl.MonStopSamplingResponse Implements OpenControl.OPENcontrolPortType.MonStopSampling Return MyBase.Channel.MonStopSampling(request) End Function Public Function MonStopSampling(ByVal MonStopSampling1 As OpenControl.MonStopSampling) As OpenControl.MonStopSamplingR Dim inValue As OpenControl.MonStopSamplingRequest = New OpenControl.MonStopSamplingRequest() inValue.MonStopSampling = MonStopSampling1 Dim retVal As OpenControl.MonStopSamplingResponse = CType(Me,OpenControl.OPENcontrolPortType).MonStopSampling(inValue) Return retVal.MonStopSamplingR End Function _ Function OpenControl_OPENcontrolPortType_MonGetVariable(ByVal request As OpenControl.MonGetVariableRequest) As OpenControl.MonGetVariableResponse Implements OpenControl.OPENcontrolPortType.MonGetVariable Return MyBase.Channel.MonGetVariable(request) End Function Public Function MonGetVariable(ByVal MonGetVariable1 As OpenControl.MonGetVariable) As OpenControl.MonGetVariableR Dim inValue As OpenControl.MonGetVariableRequest = New OpenControl.MonGetVariableRequest() inValue.MonGetVariable = MonGetVariable1 Dim retVal As OpenControl.MonGetVariableResponse = CType(Me,OpenControl.OPENcontrolPortType).MonGetVariable(inValue) Return retVal.MonGetVariableR End Function _ Function OpenControl_OPENcontrolPortType_CheckHistory(ByVal request As OpenControl.CheckHistoryRequest) As OpenControl.CheckHistoryResponse Implements OpenControl.OPENcontrolPortType.CheckHistory Return MyBase.Channel.CheckHistory(request) End Function Public Function CheckHistory(ByVal CheckHistory1 As OpenControl.CheckHistory) As OpenControl.CheckHistoryR Dim inValue As OpenControl.CheckHistoryRequest = New OpenControl.CheckHistoryRequest() inValue.CheckHistory = CheckHistory1 Dim retVal As OpenControl.CheckHistoryResponse = CType(Me,OpenControl.OPENcontrolPortType).CheckHistory(inValue) Return retVal.CheckHistoryR End Function _ Function OpenControl_OPENcontrolPortType_ReadHistoryEmergMsg(ByVal request As OpenControl.ReadHistoryEmergMsgRequest) As OpenControl.ReadHistoryEmergMsgResponse Implements OpenControl.OPENcontrolPortType.ReadHistoryEmergMsg Return MyBase.Channel.ReadHistoryEmergMsg(request) End Function Public Function ReadHistoryEmergMsg(ByVal ReadHistoryEmergMsg1 As OpenControl.ReadHistoryEmergMsg) As OpenControl.ReadHistoryEmergMsgR Dim inValue As OpenControl.ReadHistoryEmergMsgRequest = New OpenControl.ReadHistoryEmergMsgRequest() inValue.ReadHistoryEmergMsg = ReadHistoryEmergMsg1 Dim retVal As OpenControl.ReadHistoryEmergMsgResponse = CType(Me,OpenControl.OPENcontrolPortType).ReadHistoryEmergMsg(inValue) Return retVal.ReadHistoryEmergMsgR End Function _ Function OpenControl_OPENcontrolPortType_ReadHistoryErrorMsg(ByVal request As OpenControl.ReadHistoryErrorMsgRequest) As OpenControl.ReadHistoryErrorMsgResponse Implements OpenControl.OPENcontrolPortType.ReadHistoryErrorMsg Return MyBase.Channel.ReadHistoryErrorMsg(request) End Function Public Function ReadHistoryErrorMsg(ByVal ReadHistoryErrorMsg1 As OpenControl.ReadHistoryErrorMsg) As OpenControl.ReadHistoryErrorMsgR Dim inValue As OpenControl.ReadHistoryErrorMsgRequest = New OpenControl.ReadHistoryErrorMsgRequest() inValue.ReadHistoryErrorMsg = ReadHistoryErrorMsg1 Dim retVal As OpenControl.ReadHistoryErrorMsgResponse = CType(Me,OpenControl.OPENcontrolPortType).ReadHistoryErrorMsg(inValue) Return retVal.ReadHistoryErrorMsgR End Function _ Function OpenControl_OPENcontrolPortType_ReadHistoryLogMsg(ByVal request As OpenControl.ReadHistoryLogMsgRequest) As OpenControl.ReadHistoryLogMsgResponse Implements OpenControl.OPENcontrolPortType.ReadHistoryLogMsg Return MyBase.Channel.ReadHistoryLogMsg(request) End Function Public Function ReadHistoryLogMsg(ByVal ReadHistoryLogMsg1 As OpenControl.ReadHistoryLogMsg) As OpenControl.ReadHistoryLogMsgR Dim inValue As OpenControl.ReadHistoryLogMsgRequest = New OpenControl.ReadHistoryLogMsgRequest() inValue.ReadHistoryLogMsg = ReadHistoryLogMsg1 Dim retVal As OpenControl.ReadHistoryLogMsgResponse = CType(Me,OpenControl.OPENcontrolPortType).ReadHistoryLogMsg(inValue) Return retVal.ReadHistoryLogMsgR End Function _ Function OpenControl_OPENcontrolPortType_ReadHistoryAnomalyMsg(ByVal request As OpenControl.ReadHistoryAnomalyMsgRequest) As OpenControl.ReadHistoryAnomalyMsgResponse Implements OpenControl.OPENcontrolPortType.ReadHistoryAnomalyMsg Return MyBase.Channel.ReadHistoryAnomalyMsg(request) End Function Public Function ReadHistoryAnomalyMsg(ByVal ReadHistoryAnomalyMsg1 As OpenControl.ReadHistoryAnomalyMsg) As OpenControl.ReadHistoryAnomalyMsgR Dim inValue As OpenControl.ReadHistoryAnomalyMsgRequest = New OpenControl.ReadHistoryAnomalyMsgRequest() inValue.ReadHistoryAnomalyMsg = ReadHistoryAnomalyMsg1 Dim retVal As OpenControl.ReadHistoryAnomalyMsgResponse = CType(Me,OpenControl.OPENcontrolPortType).ReadHistoryAnomalyMsg(inValue) Return retVal.ReadHistoryAnomalyMsgR End Function _ Function OpenControl_OPENcontrolPortType_ReadCurrentErrorMsg(ByVal request As OpenControl.ReadCurrentErrorMsgRequest) As OpenControl.ReadCurrentErrorMsgResponse Implements OpenControl.OPENcontrolPortType.ReadCurrentErrorMsg Return MyBase.Channel.ReadCurrentErrorMsg(request) End Function Public Function ReadCurrentErrorMsg(ByVal ReadCurrentErrorMsg1 As OpenControl.ReadCurrentErrorMsg) As OpenControl.ReadCurrentErrorMsgR Dim inValue As OpenControl.ReadCurrentErrorMsgRequest = New OpenControl.ReadCurrentErrorMsgRequest() inValue.ReadCurrentErrorMsg = ReadCurrentErrorMsg1 Dim retVal As OpenControl.ReadCurrentErrorMsgResponse = CType(Me,OpenControl.OPENcontrolPortType).ReadCurrentErrorMsg(inValue) Return retVal.ReadCurrentErrorMsgR End Function _ Function OpenControl_OPENcontrolPortType_ReadCurrentEmergMsg(ByVal request As OpenControl.ReadCurrentEmergMsgRequest) As OpenControl.ReadCurrentEmergMsgResponse Implements OpenControl.OPENcontrolPortType.ReadCurrentEmergMsg Return MyBase.Channel.ReadCurrentEmergMsg(request) End Function Public Function ReadCurrentEmergMsg(ByVal ReadCurrentEmergMsg1 As OpenControl.ReadCurrentEmergMsg) As OpenControl.ReadCurrentEmergMsgR Dim inValue As OpenControl.ReadCurrentEmergMsgRequest = New OpenControl.ReadCurrentEmergMsgRequest() inValue.ReadCurrentEmergMsg = ReadCurrentEmergMsg1 Dim retVal As OpenControl.ReadCurrentEmergMsgResponse = CType(Me,OpenControl.OPENcontrolPortType).ReadCurrentEmergMsg(inValue) Return retVal.ReadCurrentEmergMsgR End Function _ Function OpenControl_OPENcontrolPortType_ReadCurrentAnomalyMsg(ByVal request As OpenControl.ReadCurrentAnomalyMsgRequest) As OpenControl.ReadCurrentAnomalyMsgResponse Implements OpenControl.OPENcontrolPortType.ReadCurrentAnomalyMsg Return MyBase.Channel.ReadCurrentAnomalyMsg(request) End Function Public Function ReadCurrentAnomalyMsg(ByVal ReadCurrentAnomalyMsg1 As OpenControl.ReadCurrentAnomalyMsg) As OpenControl.ReadCurrentAnomalyMsgR Dim inValue As OpenControl.ReadCurrentAnomalyMsgRequest = New OpenControl.ReadCurrentAnomalyMsgRequest() inValue.ReadCurrentAnomalyMsg = ReadCurrentAnomalyMsg1 Dim retVal As OpenControl.ReadCurrentAnomalyMsgResponse = CType(Me,OpenControl.OPENcontrolPortType).ReadCurrentAnomalyMsg(inValue) Return retVal.ReadCurrentAnomalyMsgR End Function _ Function OpenControl_OPENcontrolPortType_GetPTechSizes(ByVal request As OpenControl.GetPTechSizesRequest) As OpenControl.GetPTechSizesResponse Implements OpenControl.OPENcontrolPortType.GetPTechSizes Return MyBase.Channel.GetPTechSizes(request) End Function Public Function GetPTechSizes(ByVal GetPTechSizes1 As OpenControl.GetPTechSizes) As OpenControl.GetPTechSizesR Dim inValue As OpenControl.GetPTechSizesRequest = New OpenControl.GetPTechSizesRequest() inValue.GetPTechSizes = GetPTechSizes1 Dim retVal As OpenControl.GetPTechSizesResponse = CType(Me,OpenControl.OPENcontrolPortType).GetPTechSizes(inValue) Return retVal.GetPTechSizesR End Function _ Function OpenControl_OPENcontrolPortType_LoadPTech(ByVal request As OpenControl.LoadPTechRequest) As OpenControl.LoadPTechResponse Implements OpenControl.OPENcontrolPortType.LoadPTech Return MyBase.Channel.LoadPTech(request) End Function Public Function LoadPTech(ByVal LoadPTech1 As OpenControl.LoadPTech) As OpenControl.LoadPTechR Dim inValue As OpenControl.LoadPTechRequest = New OpenControl.LoadPTechRequest() inValue.LoadPTech = LoadPTech1 Dim retVal As OpenControl.LoadPTechResponse = CType(Me,OpenControl.OPENcontrolPortType).LoadPTech(inValue) Return retVal.LoadPTechR End Function _ Function OpenControl_OPENcontrolPortType_GetMarkerInfo(ByVal request As OpenControl.GetMarkerInfoRequest) As OpenControl.GetMarkerInfoResponse Implements OpenControl.OPENcontrolPortType.GetMarkerInfo Return MyBase.Channel.GetMarkerInfo(request) End Function Public Function GetMarkerInfo(ByVal GetMarkerInfo1 As OpenControl.GetMarkerInfo) As OpenControl.GetMarkerInfoR Dim inValue As OpenControl.GetMarkerInfoRequest = New OpenControl.GetMarkerInfoRequest() inValue.GetMarkerInfo = GetMarkerInfo1 Dim retVal As OpenControl.GetMarkerInfoResponse = CType(Me,OpenControl.OPENcontrolPortType).GetMarkerInfo(inValue) Return retVal.GetMarkerInfoR End Function _ Function OpenControl_OPENcontrolPortType_ManagePartProgram(ByVal request As OpenControl.ManagePartProgramRequest) As OpenControl.ManagePartProgramResponse Implements OpenControl.OPENcontrolPortType.ManagePartProgram Return MyBase.Channel.ManagePartProgram(request) End Function Public Function ManagePartProgram(ByVal ManagePartProgram1 As OpenControl.ManagePartProgram) As OpenControl.ManagePartProgramR Dim inValue As OpenControl.ManagePartProgramRequest = New OpenControl.ManagePartProgramRequest() inValue.ManagePartProgram = ManagePartProgram1 Dim retVal As OpenControl.ManagePartProgramResponse = CType(Me,OpenControl.OPENcontrolPortType).ManagePartProgram(inValue) Return retVal.ManagePartProgramR End Function _ Function OpenControl_OPENcontrolPortType_LogFSOpenFile(ByVal request As OpenControl.LogFSOpenFileRequest) As OpenControl.LogFSOpenFileResponse Implements OpenControl.OPENcontrolPortType.LogFSOpenFile Return MyBase.Channel.LogFSOpenFile(request) End Function Public Function LogFSOpenFile(ByVal LogFSOpenFile1 As OpenControl.LogFSOpenFile) As OpenControl.LogFSOpenFileR Dim inValue As OpenControl.LogFSOpenFileRequest = New OpenControl.LogFSOpenFileRequest() inValue.LogFSOpenFile = LogFSOpenFile1 Dim retVal As OpenControl.LogFSOpenFileResponse = CType(Me,OpenControl.OPENcontrolPortType).LogFSOpenFile(inValue) Return retVal.LogFSOpenFileR End Function _ Function OpenControl_OPENcontrolPortType_LogFSCloseFile(ByVal request As OpenControl.LogFSCloseFileRequest) As OpenControl.LogFSCloseFileResponse Implements OpenControl.OPENcontrolPortType.LogFSCloseFile Return MyBase.Channel.LogFSCloseFile(request) End Function Public Function LogFSCloseFile(ByVal LogFSCloseFile1 As OpenControl.LogFSCloseFile) As OpenControl.LogFSCloseFileR Dim inValue As OpenControl.LogFSCloseFileRequest = New OpenControl.LogFSCloseFileRequest() inValue.LogFSCloseFile = LogFSCloseFile1 Dim retVal As OpenControl.LogFSCloseFileResponse = CType(Me,OpenControl.OPENcontrolPortType).LogFSCloseFile(inValue) Return retVal.LogFSCloseFileR End Function _ Function OpenControl_OPENcontrolPortType_LogFSWriteRecord(ByVal request As OpenControl.LogFSWriteRecordRequest) As OpenControl.LogFSWriteRecordResponse Implements OpenControl.OPENcontrolPortType.LogFSWriteRecord Return MyBase.Channel.LogFSWriteRecord(request) End Function Public Function LogFSWriteRecord(ByVal LogFSWriteRecord1 As OpenControl.LogFSWriteRecord) As OpenControl.LogFSWriteRecordR Dim inValue As OpenControl.LogFSWriteRecordRequest = New OpenControl.LogFSWriteRecordRequest() inValue.LogFSWriteRecord = LogFSWriteRecord1 Dim retVal As OpenControl.LogFSWriteRecordResponse = CType(Me,OpenControl.OPENcontrolPortType).LogFSWriteRecord(inValue) Return retVal.LogFSWriteRecordR End Function _ Function OpenControl_OPENcontrolPortType_LogFSReadRecord(ByVal request As OpenControl.LogFSReadRecordRequest) As OpenControl.LogFSReadRecordResponse Implements OpenControl.OPENcontrolPortType.LogFSReadRecord Return MyBase.Channel.LogFSReadRecord(request) End Function Public Function LogFSReadRecord(ByVal LogFSReadRecord1 As OpenControl.LogFSReadRecord) As OpenControl.LogFSReadRecordR Dim inValue As OpenControl.LogFSReadRecordRequest = New OpenControl.LogFSReadRecordRequest() inValue.LogFSReadRecord = LogFSReadRecord1 Dim retVal As OpenControl.LogFSReadRecordResponse = CType(Me,OpenControl.OPENcontrolPortType).LogFSReadRecord(inValue) Return retVal.LogFSReadRecordR End Function _ Function OpenControl_OPENcontrolPortType_ReadRemapDefinitions(ByVal request As OpenControl.ReadRemapDefinitionsRequest) As OpenControl.ReadRemapDefinitionsResponse Implements OpenControl.OPENcontrolPortType.ReadRemapDefinitions Return MyBase.Channel.ReadRemapDefinitions(request) End Function Public Function ReadRemapDefinitions(ByVal ReadRemapDefinitions1 As OpenControl.ReadRemapDefinitions) As OpenControl.ReadRemapDefinitionsR Dim inValue As OpenControl.ReadRemapDefinitionsRequest = New OpenControl.ReadRemapDefinitionsRequest() inValue.ReadRemapDefinitions = ReadRemapDefinitions1 Dim retVal As OpenControl.ReadRemapDefinitionsResponse = CType(Me,OpenControl.OPENcontrolPortType).ReadRemapDefinitions(inValue) Return retVal.ReadRemapDefinitionsR End Function _ Function OpenControl_OPENcontrolPortType_WriteRemapDefinitions(ByVal request As OpenControl.WriteRemapDefinitionsRequest) As OpenControl.WriteRemapDefinitionsResponse Implements OpenControl.OPENcontrolPortType.WriteRemapDefinitions Return MyBase.Channel.WriteRemapDefinitions(request) End Function Public Function WriteRemapDefinitions(ByVal WriteRemapDefinitions1 As OpenControl.WriteRemapDefinitions) As OpenControl.WriteRemapDefinitionsR Dim inValue As OpenControl.WriteRemapDefinitionsRequest = New OpenControl.WriteRemapDefinitionsRequest() inValue.WriteRemapDefinitions = WriteRemapDefinitions1 Dim retVal As OpenControl.WriteRemapDefinitionsResponse = CType(Me,OpenControl.OPENcontrolPortType).WriteRemapDefinitions(inValue) Return retVal.WriteRemapDefinitionsR End Function _ Function OpenControl_OPENcontrolPortType_GetServoPar(ByVal request As OpenControl.GetServoParRequest) As OpenControl.GetServoParResponse Implements OpenControl.OPENcontrolPortType.GetServoPar Return MyBase.Channel.GetServoPar(request) End Function Public Function GetServoPar(ByVal GetServoPar1 As OpenControl.GetServoPar) As OpenControl.GetServoParR Dim inValue As OpenControl.GetServoParRequest = New OpenControl.GetServoParRequest() inValue.GetServoPar = GetServoPar1 Dim retVal As OpenControl.GetServoParResponse = CType(Me,OpenControl.OPENcontrolPortType).GetServoPar(inValue) Return retVal.GetServoParR End Function _ Function OpenControl_OPENcontrolPortType_SetServoPar(ByVal request As OpenControl.SetServoParRequest) As OpenControl.SetServoParResponse Implements OpenControl.OPENcontrolPortType.SetServoPar Return MyBase.Channel.SetServoPar(request) End Function Public Function SetServoPar(ByVal SetServoPar1 As OpenControl.SetServoPar) As OpenControl.SetServoParR Dim inValue As OpenControl.SetServoParRequest = New OpenControl.SetServoParRequest() inValue.SetServoPar = SetServoPar1 Dim retVal As OpenControl.SetServoParResponse = CType(Me,OpenControl.OPENcontrolPortType).SetServoPar(inValue) Return retVal.SetServoParR End Function _ Function OpenControl_OPENcontrolPortType_GetCNCRegKey(ByVal request As OpenControl.GetCNCRegKeyRequest) As OpenControl.GetCNCRegKeyResponse Implements OpenControl.OPENcontrolPortType.GetCNCRegKey Return MyBase.Channel.GetCNCRegKey(request) End Function Public Function GetCNCRegKey(ByVal GetCNCRegKey1 As OpenControl.GetCNCRegKey) As OpenControl.GetCNCRegKeyR Dim inValue As OpenControl.GetCNCRegKeyRequest = New OpenControl.GetCNCRegKeyRequest() inValue.GetCNCRegKey = GetCNCRegKey1 Dim retVal As OpenControl.GetCNCRegKeyResponse = CType(Me,OpenControl.OPENcontrolPortType).GetCNCRegKey(inValue) Return retVal.GetCNCRegKeyR End Function _ Function OpenControl_OPENcontrolPortType_SetIpAddress(ByVal request As OpenControl.SetIpAddressRequest) As OpenControl.SetIpAddressResponse Implements OpenControl.OPENcontrolPortType.SetIpAddress Return MyBase.Channel.SetIpAddress(request) End Function Public Function SetIpAddress(ByVal SetIpAddress1 As OpenControl.SetIpAddress) As OpenControl.SetIpAddressR Dim inValue As OpenControl.SetIpAddressRequest = New OpenControl.SetIpAddressRequest() inValue.SetIpAddress = SetIpAddress1 Dim retVal As OpenControl.SetIpAddressResponse = CType(Me,OpenControl.OPENcontrolPortType).SetIpAddress(inValue) Return retVal.SetIpAddressR End Function _ Function OpenControl_OPENcontrolPortType_GetProcInInput(ByVal request As OpenControl.GetProcInInputRequest) As OpenControl.GetProcInInputResponse Implements OpenControl.OPENcontrolPortType.GetProcInInput Return MyBase.Channel.GetProcInInput(request) End Function Public Function GetProcInInput(ByVal GetProcInInput1 As OpenControl.GetProcInInput) As OpenControl.GetProcInInputR Dim inValue As OpenControl.GetProcInInputRequest = New OpenControl.GetProcInInputRequest() inValue.GetProcInInput = GetProcInInput1 Dim retVal As OpenControl.GetProcInInputResponse = CType(Me,OpenControl.OPENcontrolPortType).GetProcInInput(inValue) Return retVal.GetProcInInputR End Function _ Function OpenControl_OPENcontrolPortType_SndProcInpData(ByVal request As OpenControl.SndProcInpDataRequest) As OpenControl.SndProcInpDataResponse Implements OpenControl.OPENcontrolPortType.SndProcInpData Return MyBase.Channel.SndProcInpData(request) End Function Public Function SndProcInpData(ByVal SndProcInpData1 As OpenControl.SndProcInpData) As OpenControl.SndProcInpDataR Dim inValue As OpenControl.SndProcInpDataRequest = New OpenControl.SndProcInpDataRequest() inValue.SndProcInpData = SndProcInpData1 Dim retVal As OpenControl.SndProcInpDataResponse = CType(Me,OpenControl.OPENcontrolPortType).SndProcInpData(inValue) Return retVal.SndProcInpDataR End Function End Class End Namespace