.avi

Can you convert this vb 6 code to vb.net 2003 ?
I tried it but the system can not upgrade the picturebox
Thank you

Dim sFileName As String, resID As Long, ret As Boolean
Picture1.Cls
Command1.Enabled = False
Command3.Enabled = True
If Option1(0).Value = True Then
sFileName = Text1.Text: resID = 0
Else
sFileName = "Shell32.dll": resID = Mid(Combo1.List(Combo1.ListIndex), 10)
End If
If Option2(0).Value = True Then
ret = PlayAviCtrl(Picture1.hWnd, sFileName, resID, Check1.Value, Check2.Value, Check3.Value)
Else
ret = PlayAviMCI(Picture1.hWnd, sFileName, resID, Check1.Value, Check2.Value, False)
End If
If ret = False Then
Picture1.Print "Unable to play this AVI"
Command3_Click
End If