VB6 to VB.NET conversion and PSET Error message

[Al Shah]

PSET Error message in VB6 to VB.NET conversion

Hello guys,

Could somebody resolve the problem with PSet command in the following code. I am aware that PSet is no longer available in .NET. Thanks

Code:

PrivateSub trace()

Dim a AsShort

Dim x AsObject

Dim y AsShort

Dim g As Graphics = CreateGraphics()

g.Clear(BackColor)

g.Dispose()



For a = 1 To UBound(pointl)

x = (pointl(a).x - pointl(a).z * pointl(a).x / vue.angle) + vue.pos.x

y = (pointl(a).y - pointl(a).z * pointl(a).y / vue.angle) + vue.pos.y

pic1.PSet (x, y), 2 ^ 24 - 1

Next

EndSub