现在比较忙，前期忙着找工作实习，后期忙着毕业，对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

拯救我下，大神

说的听不懂，还是谢谢了。现在决定做加密解密了

求推荐一种加密解密的程序算法或者程序，求大神

选简单些的，第一次接触VB程序，太难的看不懂，还请大神提供几种较简单的vb加密解密程序，供我研究搞懂。谢谢大神的回复，期待您的解答，非常感谢。