vb写如果DWH108ERR1不等于0则RECT001的fill color为红色如果DWH108ERR1等于0则RECT001的fill color为无填充

以下是一个简单的VB代码示例，根据给出的条件来设置RECT001的fill color：

If DWH108.ERR1 <> 0 Then
    RECT001.Fill.ForeColor.RGB = RGB(255, 0, 0) '将fill color设置为红色
Else
    RECT001.Fill.Visible = False '将fill color设置为无填充
End If

请根据实际情况将代码嵌入到您的程序中，并确保RECT001对象和DWH108.ERR1变量正确声明和初始化。