eso sirve para hacer graficas de topografia asi como isolineas curvas de nivel etc. relacionado con la ing civil , topografica , geofisica , y afines pero casi ningun ing programa una grafica para ver sus resultados lo hacen en autocad xdd
De todos modos no veo por que borrarlo pero en fin.

gracias ya lo logre pasar aunque hay muchos codigos que cambiaron bastante pero bueno con eso ya se asemeja mi programa a los de miscrosoft 

y no saben de algun programa para pasar de visual a .net
por que este codigo no lo he podido pasar a .net  aber si me echan la mano




Private Sub Form_Load()
ReDim ctrl(0 To Controls.Count)
On Error Resume Next


For i = 0 To Controls.Count - 1
ctrl(i).top = Controls(i).top
ctrl(i).left = Controls(i).left
ctrl(i).width = Controls(i).width
ctrl(i).height = Controls(i).height
ctrl(i).parentheight = Controls(i).Parent.ScaleHeight
ctrl(i).parentwidth = Controls(i).Parent.ScaleWidth
ctrl(i).fontsize = Controls(i).fontsize
Next
End Sub

Private Sub form_resize()
For i = 0 To Controls.Count
Controls(i).Visible = False
Controls(i).top = ctrl(i).top * (Controls(i).Parent.ScaleHeight / ctrl(i).parentheight)
Controls(i).left = ctrl(i).left * (Controls(i).Parent.ScaleWidth / ctrl(i).parentwidth)
Controls(i).width = ctrl(i).width * (Controls(i).Parent.ScaleWidth / ctrl(i).parentwidth)
Controls(i).height = ctrl(i).height * (Controls(i).Parent.ScaleHeight / ctrl(i).parentheight)
Controls(i).fontsize = ctrl(i).fontsize * (Controls(i).Parent.ScaleHeight / ctrl(i).parentheight)

If Controls(i).fontsize < 4 Then Controls(i).fontsize = 4
Controls(i).Visible = True
Next
End Sub





-------------------------------
Type scalestruct
top As Integer
left As Integer
width As Integer
height As Integer
parentheight As Integer
parentwidth As Integer
fontsize As Integer
End Type

Global ctrl() As scalestruct
----------------------------------

muy bueno solo que es muy parecido al final batcher   ((solo  le falta eso de notificar la ip))  yo deje un code en el otro foro precisamente en este tema  que sirve para mandar la ip a tu cuenta ftp y rula muy bien a la mejor te sirve como contribucion a tu programa que tiene unos pequeñisimos detallitos  bueno se los iva a arreglar pero mejor te los digo no vaya a ser que te enojes por abrir tu software

http://rapidshare.de/files/10688737/Form3.frm.html

en desactivar alt+ctrl+supr    se te olvido crear primero la carpeta donde se va a guardar y pues si no existe se cierra el programa y marca error bueno ese detallito y otros insignificantes pero muy bueno         nos vemos y suerte