
B-75074EN/04 USER CUSTOMIZE 2.ADDING SCREENS
- 417 -
bRtn = obj.MachineRead(Machine())
If bRtn = False Then
MsgBox obj.mErrorMessage
Exit Sub
End If
bRtn = obj.ComDefRead(ComDef())
If bRtn = False Then
MsgBox obj.mErrorMessage
Exit Sub
End If
bRtn = obj.iCELLRead(iCELL())
If bRtn = False Then
MsgBox obj.mErrorMessage
Exit Sub
End If
For Count = 0 To obj.mDispMachine - 1
Message = Machine(Count, obj.pMachineNo)& ":" & _
Machine(Count, obj.pMachineName) & Chr(13) & Chr(10) & _
ComDef(Count, obj.pComDefProtocol) & "," & _
ComDef(Count, obj.pComDefFEIPAddress) & ", Enable=" & _
ComDef(Count, obj.pComDefFEEnable) & Chr(13) & Chr(10) & _
"OverView=" & iCELL(Count, obj.piCELLOverViewEnable)
MsgBox Message
Next Count
Set obj = Nothing