CONVERCAO DE CODIGO P/ VB.NET 2010

SALIBA 29/08/2013 11:20:41
#428277

Ola amigos. tenho este codigo em vb 6 e gostaria de convertelo em vb 2010

For T = 0 To Shape.Count - 1
DoEvents
If Shape(T).Visible = True Then
DoEvents
If Shape(T).BorderStyle = 0 Then
Picture1.DrawStyle = 5
Else
Picture1.DrawStyle = 0
End If
Picture1.CurrentX = Shape(T).Left
Picture1.CurrentY = Shape(T).Top
PaintBox Picture1, Shape(T)
End If
Next
For T = 0 To Linha.Count - 1
DoEvents
If Linha(T).Visible = True Then
DoEvents
If Linha(T).BorderStyle = 4 Then
Picture1.DrawStyle = 4
Else
Picture1.DrawStyle = 0
End If
Picture1.DrawWidth = Linha(T).BorderWidth
Picture1.Line (Linha(T).X1, Linha(T).Y1)-(Linha(T).X2, Linha(T).Y2)
Picture1.DrawWidth = 1
End If
Next
SavePicture Picture1.Image, App.Path & [Ô]\desenhos\[Ô] & Trim(Texto(4)) & [Ô].bmp[Ô]
SavePicture Picture1.Image, App.Path & [Ô]\desenhos    empo\[Ô] & Trim(Texto(4)) & [Ô].bmp[Ô]
Picture1.ScaleMode = 1
Err = 0
Image2.Picture = LoadPicture(Trim((App.Path & [Ô]\Desenhos\[Ô] & Trim(Texto(4)) & [Ô].bmp[Ô])))
If Err Then
Image2.Picture = LoadPicture(App.Path & [Ô]\Desenhos\[Ô] & [Ô]sem imagem.bmp[Ô])
End If
Picture2.PaintPicture Image2, Image2.Left, Image2.Top, Image2.Width, Image2.Height
End If

Desde ja agradeço.