【VB开源代码栏目提醒】：网学会员--在 VB开源代码编辑为广大网友搜集整理了：从左到右.frm绩等信息，祝愿广大网友取得需要的信息，参考学习。

    VERSION 5.00
    Begin VB.Form Form1 
       Caption         =   "从左往右显示图片"
       ClientHeight    =   3810
       ClientLeft      =   60
       ClientTop       =   450
       ClientWidth     =   3345
       LinkTopic       =   "Form1"
       ScaleHeight     =   3810
       ScaleWidth      =   3345
       StartUpPosition =   3  '窗口缺省
       Begin VB.PictureBox Picture1 
          Height          =   2535
          Left            =   0
          Picture         =   "从左到右.frx":0000
          ScaleHeight     =   2475
          ScaleWidth      =   3315
          TabIndex        =   2
          Top             =   0
          Visible         =   0   'False
          Width           =   3375
       End
       Begin VB.CommandButton Command2 
          Caption         =   "退出"
          Height          =   495
          Left            =   1920
          TabIndex        =   1
          Top             =   2760
          Width           =   1335
       End
       Begin VB.CommandButton Command1 
          Caption         =   "显示"
          Height          =   495
          Left            =   120
          TabIndex        =   0
          Top             =   2760
          Width           =   1215
       End
    End
    Attribute VB_Name = "Form1"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Private Const Dis As Integer = 8
    Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliSeconds As Long)
    
    
    Private Sub Command1_Click()
    Dim Total As Integer
        Total = 0
    Do While Total < Picture1.Width - Dis
       Form1.PaintPicture Picture1, Total, 0, Dis, Picture1.Height, _
                       Total, 0, Dis, Picture1.Height, vbSrcCopy
       Total = Total + Dis
       Sleep (10)
     Loop
    End Sub
    
    Private Sub Command2_Click()
       End
    End Sub
    
    Private Sub Form_Load()
    Picture1.ScaleMode = 3
    End Sub