用VB6.0要做加密操作,需要左移\右移操作.在网上找了一个左移,根据这个改了个右移.其中参数Rmark表示移位后是补零还是补移出的一位. Rmark=0表示补零.

右移一位补零:　０１０１１０１０　　->　００１０１１０１

右移一位补移出的一位:　０１０１１１１１　->　１０１０１１１１

不废话了!

'左移字节
Public Function byteleft(byte1 As Byte, n As Integer, Optional Rmark As Integer = 0) A

       刚学的一个小技巧:

       (1) 开始 -> 运行 -> cmd

       (2)进入要建立文件夹的路径，输入MD 123..\，则建立了文件夹。

       (3)RD 123..\删除文件夹，文件夹必须为空。

       (4)Start e:\123..\ 打开文件夹，必须是绝对路径。

         绘制图形和线条

                  画笔和钢笔

        本节介绍两个辅助类，在绘制图形时需要使用它们。前面已经见过了Pen类，它用于告诉工人graphics实例如何绘制线条。相关的类是System.Drawing.Brush，告诉graphics实例如何填充区域。例如，Pen用于绘制前面示例中的矩形和椭圆的边框。如果需要把这些图形绘制为实心的，就要使用画笔指定如何填充它们。这两个类有一个共同点：很难对

                     世界\页面\设备坐标

       测量相对于文档区域左上角的位置和测量相对于屏幕(桌面)左上角的位置之间的区别非常重要,GDI+为它们指定了不同的名称.
     * 世界坐标(Word Coordinate):要测量的点距离文档区域左上角的位置(以像素为单位).
     * 页面坐标(Page Coordiante):要测量

                                                MousePointer 属性
返回或设置一个值，该值指示在运行时当鼠标移动到对象的一个特定部分时，被显示的鼠标指针的类型。
语法
object.MousePointer [= value]
MousePointer 属性语法包含下面部分：

        绘制可滚动的窗口---介绍如何绘制的内容不适合窗口的大小，需要做哪些工作。
       下面扩展DrawShapes示例，来解释滚动的概念。为了使该示例更符合实际，首先创建一个BIgShapes示例，该示例将矩形和椭圆画大一些。此时将使用Point,Size,Rectange结构定义绘图域，说明如何使用他们。Form1类的相关部分如下所示：

       // member fields
       p