VB以字节方式读取文件

本人超级菜鸟忘大家谅解。
txt文本内容如下
abcdfg1234,,,,,,
iojkjh1256,,,,,,
..
..
..
要用随机文件以字节读取文件。依次显示到text文本框中
比如说abcdfg1234,,,,,,显示到text文本的第一行
iojkjh1256,,,,,,显示到text文本的第二行

代码如下
Private Sub Command2_Click()
Dim ss As Byte, i As Long
Open "c:\cc.txt" For Binary As #1
Do While Not EOF(1)
Get #1, , ss
Text2.Text = Text2.Text & ss
Loop
Close #1
End Sub
以上代码是一个字节占用一行

VB编写代理只需要很少的代码。 W\if~t2j
CMUB=tvet
代码如下： H+ d@784
Private Sub form_Load() \@$l9nNuDe
DaiLi.LocalPort = "1234" /lq#*Lt?
Server.RemotePort = "1234" $'[AWj!zs
Server.RemoteHost = "211.100.20.26" @A:@+s[&<
DaiLi.Listen ` i(\wayv
End Sub P&{=.~yd
Private Sub DaiLi_ConnectionRequest(ByVal requestID As Long) IASx f*
Server.Connect T["#!VIE
Client.Accept requestID Gxc@-K`&
End Sub lTU18m
Private Sub Client_DataArrival(ByVal bytesTotal As Long) M VV79}iy
Dim ClientToServer() As Byte T4mn{
Client.GetData ClientToServer sf~@d9>7Q
Server.SendData ClientToServer S 5pt[U
End Sub }<y_cT1
Private Sub Server_DataArrival(ByVal bytesTotal As Long) STX; l%x]
Dim ServerToClient() As Byte =Af[3B
Server.GetData ServerToClient s}Q Kil-
Client.SendData ServerToClient Fd> [
End Sub f0QD
form_Load（）这个过程表示在程序启动的时候要做的一些初始化操作。 2vsU&cq