Help Needed vb6 snippet to vb.net

[vbdog]

Hi I am trying to convert the vb6 code below into vb.net code can anyboddy help The vb6 code is from a chip8 Emulator that
somboddy wrote.

vb6 code

this function keeps getting called until the image is drawn.

Sub drawscreen()
 
If Picture1.Point(1 + x + (i * 4), y + (j * 4)) = RGB(0, 255, 0) Then
 
v(&HF) = 1
 
Picture1.Line (1 + x + (i * 4), y + (j * 4))-(1 + x + (i * 4) + 3, y + (j * 4) + 3), RGB(0, 0, 0), BF
 
Else
 
Picture1.Line (1 + x + (i * 4), y + (j * 4))-(1 + x + (i * 4) + 3, y + (j * 4) + 3), RGB(0, 255, 0), BF
 
End If
 
End Sub

many thanks Karl