自定义函数 

渐变色 

Dim sender As object = Args(0)

Dim e As System.Windows.Forms.PaintEventArgs = Args(1)

Dim Str() As String = Args(2).Split("|")

Dim p As System.Windows.Forms.Panel = Forms(Str(0)).controls(Str(1)).baseControl

Dim brush As new LinearGradientBrush(p.ClientRectangle, Color.Blue, Color.White , LinearGradientMode.Vertical)

Dim g As Graphics = p.CreateGraphics()

g.FillRectangle(brush, p.ClientRectangle)

全局代码 

API 

Public Sub Form_Paint(sender As object, e As System.Windows.Forms.PaintEventArgs)

    Dim p As System.Windows.Forms.Panel = Forms("窗口1").controls("Panel1").baseControl

   \' Dim brush As new LinearGradientBrush(p.ClientRectangle, Color.white, Color.black , LinearGradientMode.Horizontal)

   \' Dim g As Graphics = p.CreateGraphics()

   \' g.FillRectangle(brush, p.ClientRectangle)

Functions.Execute("渐变色",sender,e,"窗口1|Panel1")

End Sub

请老师帮忙看一下是哪里的问题