求助怎么改写下列程序，实现基于 VB 的串口通信实现视频传输 - 编程论坛

现在比较忙，前期忙着找工作实习，后期忙着毕业，对vb一窍不通，勉强看懂了基于vb实现字符，传送的程序，文本的已经写好了，现在需要改成视频格式的传输，请问论坛大神需要怎么修改呢？谢谢
    实现字符传送的程序代码如下，求帮助修改，谢谢。
   '串口初始化
Private Sub Form_Load()
   = 1                '设置通信端口号
为COM1
  MSComm1.Settings = "9600,n,8,1"         '设置串口参数
  MSComm1.InputMode = 0                '接收文本型数据
  MSComm1.RThreshold = 1 '接收缓冲区每收到一个字符都会
使 MSComm 控件触发OnComm 事件
  MSComm1.PortOpen = True             '打开通信端口1
End Sub
'把字符通过串口发送出去
'启动定时器
Private Sub Cmdsend_Click()
  If Text2.Text = "" Then
    pp = MsgBox("发送的数据不能为空！", 16)
    Exit Sub
  End If
  MSComm1.Output = Trim(Text2.Text)
End Sub
'MSComm 的 OnComm 事件程序?
'由 CommEvent 属性值的不同，将各自的程序代码写入相关的
子程序中
'只要 RThresold 中的设定字符数到达时便会使得 CommEvent
属性值变成 comEvReceive
'因此接收的子程序便会被执行
Private Sub MSComm1_OnComm()
Dim buf$
Select Case
    '通过取代每一个 case 表达式来处理每个事件与错误
     Case comEvCD               ' CD 线的状态发生变化
     Case comEvCTS              ' CTS 线的状态发生变化
     Case comEvDSR                      ' DSR
线的状态发生变化
     Case comEvReceive
       buf = Trim(MSComm1.Input)       '将缓冲区内的数
据读入buf变量中
    Case comEvSend
  End Select
  Text1.Text = Text1.Text & buf
End Sub
'停止程序运行
Private Sub Cmdquit_Click()
  Unload Me
End Sub
'关闭通信端口,
Private Sub Form_Unload(Cancel As Integer)
  MSComm1.PortOpen = False
End Sub