我最近用VB6.0写了一个读取TXT文件的小程序，结果拿到Win7运行有问题，好不容易下了一个支持Win7的VB2013，结果发现代码不能用了，求大神帮我将以下VB6.0的代码转成VB2013.小弟在此拜谢了。。



Option Explicit

Dim TempFile As Long  
Dim LoadBytes() As Byte

Private Sub Command1_Click()
           TempFile = FreeFile
           Open "C:\KFT476.log" For Binary As #TempFile
           ReDim LoadBytes(1 To LOF(TempFile)) As Byte
           Get #TempFile, , LoadBytes
           Close TempFile

           Text1.Text = StrConv(LoadBytes, vbUnicode)
           Text1.SetFocus
           SendKeys "^{END}"


End Sub

Private Sub Form_Resize()
           Text1.Width = Me.ScaleWidth * 0.95
           Text1.Height = Me.ScaleHeight * 0.9


End Sub

Dim PathUserData As String = Application.StartupPath & "\实操统计sql.txt"
TextTB.Text = (PathUserData, System.Text.Encoding.UTF8)
TextTB.SelectionStart = TextTB.TextLength

Command1_Click()这里用上面的这个代码就可以了。