VB代码颜色修改

源代码如下：
Public Sub DrawWaveProc()
Dim Status As Boolean, num As Integer
Dim CurrentIndexNow As Long
Dim x As Integer
Original = PerHeight / 2
Picture1.Refresh
'Picture1.BackColor = RGB(0, 0, 0)
x = 0 '开始绘制每通道数据时，将屏幕X坐标定位在窗口的最边位置，防止产生多余波形
For Channel = 0 To 2 ' 绘制所有有效通道数据
Pointlxy(x).x = x '开始绘制每通道数据时，将屏幕X坐标定位在窗口的0位置
' 求出该通道第一个点的Y轴原始坐标OldY
Pointlxy(x).y = Original - ((((AD_Module.InUserRegion(Channel, AD_Module.CurrentIndex)) And &HFFF) - 2048) / middle1)
For Index = 0 To Pwidth * ChannelCount Step ChannelCount '绘制该通道的所有数据
' 求出相对于OldY的第二个点的Y轴新坐标
x = x + 1 '绘制完一个点后，将X轴向的坐标往右偏移一个象素位置
Pointlxy(x).x = x
Pointlxy(x).y = Original - ((((AD_Module.InUserRegion(Channel + Index, AD_Module.CurrentIndex)) And &HFFF) - 2048) / middle1)
Next Index ' 绘制

VB代码颜色设置 VB修改颜色 高手帮忙修改VB代码 vb中代码的修改等 如何修改vb按钮的颜色 校内网文字颜色修改代码 vb中“设置字体，背景颜色”代码怎么写？ 如何用VB修改wma标签,有人提供过代码 VB修改注册表（不要废话，只要代码） VB做的系统的登陆密码的修改代码