使用.net的升级向导,虽然不能完全升级但大部分代码都升级了,再做略微修改
站在用户的角度思考问题，与客户深入沟通，找到大同网站设计与大同网站推广的解决方案，凭借多年的经验，让设计与互联网技术结合，创造个性化、用户体验好的作品，建站类型包括：网站制作、网站设计、企业官网、英文网站、手机端网站、网站推广、空间域名、虚拟空间、企业邮箱。业务覆盖大同地区。
那个号回答的问题怎么总是显示不出来？
换朋友的号给你回答。
Dim FileName As String = InputBox("输入文件位置")
Dim yw As String = Nothing
yw = My.Computer.FileSystem.ReadAllText(FileName)
Dim n As Long = Len(yw)
Dim yz As String = Nothing
Dim xz As String = Nothing
Dim xw As String = Nothing
For i = 1 To n
yz = Mid(yw, i, 1)
xz = Chr(Asc(yz) + 10)
xw = xz
Next
My.Computer.FileSystem.WriteAllText(FileName, xw, True)
MsgBox("OK")
代码倒数第二行的最后一个Boolean变量是设置文件输出是否为追加模式的，根据你自己的需要做修改吧。因为我已经不记得VB里的默认输出是追加还是覆盖了。
希望能够满意~
能不能转换 主要取决于vb6的源程序是不是使用了第三方控件 如果用了 那这些全部都不能转！~
如果vb6里面有控件数组vb.net会自动生成出一套东西（vb.net里面已经没有控件数组）模拟控件数组
如果vb6的程序很简单的话，转成.net之后应该改的地方不大！~
绝对你应该先弄清楚以前vb6的程序具体用了什么 然后去微软查一下vb6升级到vb.net最大的区别！~
我们做过好几个升级的程序 有的不用改 有的简单修改 有的基本重写！~
先声明一个委托：
Public Delegate Function EnumChildProc(hwnd As Integer, iParam As Integer) As Integer
然后才能使用回调函数，回调函数的参数要和委托完全一致。
然后那个 API 函数需要这样声明：
Declare Function EnumChildWindows Lib "user32" (hWndParent As Integer, lpEnumFunc As EnumChildProc, lParam As Integer) As Integer
