VB to Access

[Bryan]

Have a question. I have the following code running in VB6 that
dithers the background on a form from light to dark (like a setup
screen).
Sub Dither(vForm As Form)
Dim intLoop As Long
vForm.DrawStyle = vbInsideSolid
vForm.DrawMode = vbCopyPen
vForm.ScaleMode = vbPixels
vForm.DrawWidth = 2
vForm.ScaleHeig ht = 256
For intLoop = 0 To 255
vForm.Line (0, intLoop)-(Screen.Width, intLoop - 1), RGB(300 -
intLoop, 0, 0), B
Next intLoop

End Sub


What I would like is to run this in Access, but Access dosent hold the
constant "vbInsideSo lid , vbCopyPen, vbPixels".
Does anyone know of a way to convert this constants to Access thru a
reference or otherwise?

thanks
Bryan

[Trevor Best]

Re: VB to Access

Bryan wrote:
[color=blue]
> Have a question. I have the following code running in VB6 that
> dithers the background on a form from light to dark (like a setup
> screen).
> Sub Dither(vForm As Form)
> Dim intLoop As Long
> vForm.DrawStyle = vbInsideSolid
> vForm.DrawMode = vbCopyPen
> vForm.ScaleMode = vbPixels
> vForm.DrawWidth = 2
> vForm.ScaleHeig ht = 256
> For intLoop = 0 To 255
> vForm.Line (0, intLoop)-(Screen.Width, intLoop - 1), RGB(300 -
> intLoop, 0, 0), B
> Next intLoop
>
> End Sub
>
>
> What I would like is to run this in Access, but Access dosent hold the
> constant "vbInsideSo lid , vbCopyPen, vbPixels".
> Does anyone know of a way to convert this constants to Access thru a
> reference or otherwise?
>
> thanks
> Bryan[/color]

Find out the values in VB by typing "?vbInsideSolid " in the immediate
window then define them in Access, e.g. "Global Const vbInsideSolid = xxx"


--
But why is the Rum gone?