修改背景颜色

        Dim value As Drawing.Color = Drawing.Color.Blue
        Dim num As Double = (CDbl(value.R) / 255)
        Dim num2 As Double = (CDbl(value.G) / 255)
        Dim num3 As Double = (CDbl(value.B) / 255)
        Dim numArray As Double() = New Double() {num, num2, num3}
        Dim disp As UFDisp = NXOpen.UF.UFSession.GetUFSession().Disp
        Dim num4 As Integer = 0
        Dim num5 As Integer = 0
        Dim str As String = ""
        disp.SetColor(num4, num5, str, numArray)
        disp.LoadColorTable()