line rgb

Question

vb6.0定义label的line rgb 怎麽用！如下代码：
Private Sub Form_Load()
'Label1.Caption = "欢迎使用本管理程序!"
'Label1.Font = "楷体_GB2312"
'Label1.ForeColor = &HFF0000
Dim I As Integer, Color As Single
Flag = 0
W1 = Label1.Width
W2 = 欢迎.Width
Color = 105
For I = 1 To 390
  Line (0, I)-(500, I), RGB(0, Color, 0)
  Color = Color - 0.25
Next
End Sub
其中：
Color = 105
For I = 1 To 390
  Line (0, I)-(500, I), RGB(0, Color, 0)
  Color = Color - 0.25
line \rgb 及Color = Color - 0.25是控制什麽的？

Answer 1

十分感谢jennyvenus的回答,请问阁下在哪个城市,能否留个mail之类的？