SE的```
你可以参考一下：Private Sub Button8_Released()
On Error GoTo ErrorHandler

        oGroup.Add "DL_HFS\DI_N1_WZ"
        oGroup.Add "DL_HFS\DI_N1_GZ"
        oGroup.Add "DL_HFS\DI_N1_YD"
        oGroup.Add "DL_HFS\DO_N1_OPEN"
        oGroup.Add "DL_HFS\DO_N1_CLOSE"
        
        oGroup.Active = True
      
        Set sTagWZ = oGroup.Item("DL_HFS\DI_N1_WZ")
        Set sTagGZ = oGroup.Item("DL_HFS\DI_N1_GZ")
        Set sTagYD = oGroup.Item("DL_HFS\DI_N1_YD")
        Set sTagOpen = oGroup.Item("DL_HFS\DO_N1_OPEN")
        Set sTagClose = oGroup.Item("DL_HFS\DO_N1_CLOSE")

    sTagDescr = Button8.ToolTipText
    If blCurCode = False Then
        MsgBox "你没有遥控操作权限！", 48, "没有权限"
        Exit Sub
    End If
    If sTagGZ.Value > 0 Then
        MsgBox "设备故障，请清除故障再执行此操作！", 48, "故障"
        Exit Sub
    End If
    If sTagYD.Value = 0 Then
        MsgBox "设备禁止远程遥控操作！请把设备的远程遥控开关置为远程！", 48, "禁止遥控"
        Exit Sub
    End If
    'Do While Timer < EndTime
       Button8.Visible = False
    
    '    DoEvents
    'Loop
        
    Call KaiGuanControl(2)
    Button8.Visible = True
    
ErrorHandler:
    Err.Clear
    Exit Sub

End Sub

433