مطلوب : تحويل كود vb6 إلى vb.net 2005

السلام عليكم ورحمة الله وبركاته

اردت تحويل هذا الكود إلى vb.net 2005

Private Declare Sub out Lib "Inpout32.dll" Alias "Out32" (ByVal portaddress As Integer, ByVal value As Integer)
Dim z As Boolean

Private Sub Command1_Click()
If z = True Then
a:
For x = 0 To 3
y = 2 ^ x
out &H378, y
dealy 3
Next x
DoEvents
If z = False Then
GoTo b
End If
GoTo a
End If
b:
End Sub
Sub dealy(i As Long)
j = Timer + i
Do Until j <= Timer
Loop
End Sub

Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)
z = False
End Sub

Private Sub Form_Load()
z = True
End Sub