
2.ADDING SCREENS USER CUSTOMIZE B-75074EN/04
- 424 -
If Not ole.Initialize(s) Then
MsgBox ole.ErrorMessage
End If
' Display
HostName = LocalPC
CimFileName = FileParse$(scr.FullName, 4) & ".cim"
McnNoInScr = 1
If Not ole.ReadSlectMcnInfo(HostName, _
CimFileName, McnNoInScr) Then
MsgBox ole.ErrorMessage
End If
' Title character setting
Select Case ole.McnNoComboDispMode
Case 1
ole.McnNoTitle = "machine-number"
Case 2, 4
ole.McnNoTitle = "machine-name"
Case 3, 5
ole.McnNoTitle = "machine-number.name"
End Select
MsgBox ole.McnNo
MsgBox ole.PathNo
MsgBox ole.ComDefProtocol
' Termination processing
If ole Is Not Nothing Then
ole.Save
ole.Terminate
Set ole = Nothing
End If
If obj Is Not Nothing Then
Set obj = Nothing
End If
Set scr = Nothing