form5.frm

is also very important for life

VERSION 5.00
Begin VB.Form Form5 
   BackColor       =   &H80000008&
   Caption         =   "Form5"
   ClientHeight    =   8040
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   11520
   LinkTopic       =   "Form5"
   ScaleHeight     =   8040
   ScaleWidth      =   11520
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command1 
      BackColor       =   &H000000FF&
      Caption         =   "Command1"
      Height          =   375
      Left            =   4440
      TabIndex        =   2
      Top             =   7320
      Width           =   2415
   End
   Begin VB.TextBox Text1 
      BackColor       =   &H80000007&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   18
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   495
      Left            =   1200
      TabIndex        =   0
      Top             =   360
      Width           =   2055
   End
   Begin VB.Timer Timer1 
      Interval        =   100
      Left            =   240
      Top             =   360
   End
   Begin VB.Line Line6 
      BorderColor     =   &H000000FF&
      BorderWidth     =   4
      X1              =   9240
      X2              =   9120
      Y1              =   6960
      Y2              =   7080
   End
   Begin VB.Line Line5 
      BorderColor     =   &H000000FF&
      BorderWidth     =   4
      X1              =   9120
      X2              =   9240
      Y1              =   6840
      Y2              =   6960
   End
   Begin VB.Line Line4 
      BorderColor     =   &H000000FF&
      BorderWidth     =   4
      X1              =   2160
      X2              =   2280
      Y1              =   1800
      Y2              =   2040
   End
   Begin VB.Line Line3 
      BorderColor     =   &H000000FF&
      BorderWidth     =   4
      X1              =   2040
      X2              =   2160
      Y1              =   2040
      Y2              =   1800
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackColor       =   &H80000008&
      Height          =   3375
      Left            =   1320
      TabIndex        =   1
      Top             =   2280
      Width           =   495
   End
   Begin VB.Line Line2 
      BorderColor     =   &H000000FF&
      BorderWidth     =   4
      X1              =   2160
      X2              =   9240
      Y1              =   6960
      Y2              =   6960
   End
   Begin VB.Line Line1 
      BorderColor     =   &H000000FF&
      BorderWidth     =   4
      X1              =   2160
      X2              =   2160
      Y1              =   1800
      Y2              =   6960
   End
End
Attribute VB_Name = "Form5"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim sx As Integer
Dim ex As Integer
Dim ey As Integer
Dim sy As Integer
Dim i As Integer

Private Sub Command1_Click()
Me.Visible = False

End Sub

Private Sub Form_Load()
sx = 2160
ex = 9240
ey = 6960
sy = 1800
End Sub
Private Sub Timer1_Timer()
Text1.Text = Form1.Text5.Text
i = Form1.Text5.Text
ex = sx + 100
ey = 6960 - (i / 200) * (6960 - 1800)
Line (sx, sy)-(ex, ey), vbGreen
 sx = ex
sy = ey
If (sx > 9140) Then
Line (2160, 1800)-(9240, 6960), Me.BackColor, BF
Line1.Refresh
Line2.Refresh
sx = 2160
End If

End Sub