form1.frm

send.zip

VERSION 5.00
Begin VB.Form Form1 
   BackColor       =   &H00000000&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Water"
   ClientHeight    =   6240
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   8685
   ClipControls    =   0   'False
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   6240
   ScaleWidth      =   8685
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.Timer Timer1 
      Interval        =   1
      Left            =   3000
      Top             =   2670
   End
   Begin VB.PictureBox Dest 
      Appearance      =   0  'Flat
      BackColor       =   &H00000000&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   6075
      Left            =   4440
      ScaleHeight     =   6075
      ScaleWidth      =   4080
      TabIndex        =   1
      Top             =   120
      Width           =   4080
   End
   Begin VB.PictureBox Sour 
      BorderStyle     =   0  'None
      Height          =   6075
      Left            =   90
      Picture         =   "Form1.frx":0000
      ScaleHeight     =   6075
      ScaleWidth      =   4290
      TabIndex        =   0
      Top             =   90
      Width           =   4290
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim State(400) As Integer
Dim X(400) As Integer
Dim I As Integer
Dim Start As Integer


Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long


Private Sub Dest_Click()
Start = 0
End Sub

Private Sub Form_Load()
I = 1
For I = 0 To 400
  State(I) = I Mod 3
  X(I) = -1
  X(I) = X(I) + I Mod 3
Next I
Start = 0
End Sub

Private Sub Sour_Click()
Start = 220
End Sub

Private Sub Timer1_Timer()

For I = Start To 400
  If State(I) = 0 Then
    X(I) = X(I) - Rnd * 2
    State(I) = 1
  ElseIf State(I) = 1 Then
    X(I) = 0
    State(I) = 2
  ElseIf State(I) = 2 Then
    X(I) = X(I) + Rnd * 2
    State(I) = 0
  End If
  BitBlt Dest.hDC, X(I), I, 300, 1, Sour.hDC, 10, I, vbSrcCopy
Next I

End Sub