Jd movements 0.01
Submitted By:
jaydee_18
Rating:
(Not rated) (
Rate It)
VERSION 5.00
Begin VB.Form frmAnime
BackColor = &H00FFFFFF&
Caption = "[[Email Removed]]"
ClientHeight = 3195
ClientLeft = 60
ClientTop = 345
ClientWidth = 4680
Icon = "frmAnime.frx":0000
LinkTopic = "Form1"
MouseIcon = "frmAnime.frx":08CA
ScaleHeight = 3195
ScaleWidth = 4680
StartUpPosition = 3 'Windows Default
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 10
Left = 3960
Top = 2520
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Use arrow keys...."
Height = 195
Left = 240
TabIndex = 1
Top = 2760
Width = 1275
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = $"frmAnime.frx":1194
Height = 975
Left = 120
TabIndex = 0
Top = 120
Width = 4335
End
Begin VB.Image Image4
Height = 555
Index = 3
Left = 105
Picture = "frmAnime.frx":1226
Top = 1440
Visible = 0 'False
Width = 330
End
Begin VB.Image Image4
Height = 555
Index = 2
Left = 105
Picture = "frmAnime.frx":1C3C
Top = 1440
Visible = 0 'False
Width = 330
End
Begin VB.Image Image4
Height = 555
Index = 1
Left = 105
Picture = "frmAnime.frx":2652
Top = 1440
Visible = 0 'False
Width = 330
End
Begin VB.Image Image4
Height = 555
Index = 0
Left = 105
Picture = "frmAnime.frx":3068
Top = 1440
Visible = 0 'False
Width = 330
End
Begin VB.Image Image3
Height = 570
Index = 3
Left = 100
Picture = "frmAnime.frx":3A7E
Top = 1440
Visible = 0 'False
Width = 345
End
Begin VB.Image Image3
Height = 555
Index = 2
Left = 105
Picture = "frmAnime.frx":4570
Top = 1440
Visible = 0 'False
Width = 285
End
Begin VB.Image Image3
Height = 555
Index = 1
Left = 105
Picture = "frmAnime.frx":4E5E
Top = 1440
Visible = 0 'False
Width = 285
End
Begin VB.Image Image3
Height = 600
Index = 0
Left = 105
Picture = "frmAnime.frx":574C
Top = 1440
Visible = 0 'False
Width = 315
End
Begin VB.Image Image2
Height = 585
Index = 3
Left = 100
Picture = "frmAnime.frx":618E
Top = 1440
Visible = 0 'False
Width = 375
End
Begin VB.Image Image2
Height = 540
Index = 2
Left = 105
Picture = "frmAnime.frx":6D64
Top = 1440
Visible = 0 'False
Width = 390
End
Begin VB.Image Image2
Height = 540
Index = 1
Left = 105
Picture = "frmAnime.frx":78E6
Top = 1440
Visible = 0 'False
Width = 285
End
Begin VB.Image Image2
Height = 540
Index = 0
Left = 105
Picture = "frmAnime.frx":8198
Top = 1440
Visible = 0 'False
Width = 270
End
Begin VB.Image Image1
Height = 540
Index = 3
Left = 105
Picture = "frmAnime.frx":89BA
Top = 1440
Visible = 0 'False
Width = 390
End
Begin VB.Image Image1
Height = 540
Index = 0
Left = 105
Picture = "frmAnime.frx":953C
Top = 1440
Visible = 0 'False
Width = 270
End
Begin VB.Image Image1
Height = 540
Index = 1
Left = 105
Picture = "frmAnime.frx":9D5E
Top = 1440
Visible = 0 'False
Width = 285
End
Begin VB.Image Image1
Height = 585
Index = 2
Left = 100
Picture = "frmAnime.frx":A610
Top = 1440
Visible = 0 'False
Width = 375
End
End
Attribute VB_Name = "frmAnime"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim i, j, hey As Integer
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
hey = KeyCode
Timer1.Enabled = True
If KeyCode = 38 Then
Image1(0).Visible = False
Image1(1).Visible = False
Image1(2).Visible = False
Image1(3).Visible = False
Image2(0).Visible = False
Image2(1).Visible = False
Image2(2).Visible = False
Image2(3).Visible = False
Image3(0).Visible = False
Image3(1).Visible = False
Image3(2).Visible = False
Image3(3).Visible = False
Image4(i).Visible = True
End If
If KeyCode = 39 Then
Image2(0).Visible = False
Image2(1).Visible = False
Image2(2).Visible = False
Image2(3).Visible = False
Image3(0).Visible = False
Image3(1).Visible = False
Image3(2).Visible = False
Image3(3).Visible = False
Image4(0).Visible = False
Image4(1).Visible = False
Image4(2).Visible = False
Image4(3).Visible = False
Image1(i).Visible = True
End If
If KeyCode = 37 Then
Image1(0).Visible = False
Image1(1).Visible = False
Image1(2).Visible = False
Image1(3).Visible = False
Image3(0).Visible = False
Image3(1).Visible = False
Image3(2).Visible = False
Image3(3).Visible = False
Image4(0).Visible = False
Image4(1).Visible = False
Image4(2).Visible = False
Image4(3).Visible = False
Image2(i).Visible = True
End If
If KeyCode = 40 Then
Image1(0).Visible = False
Image1(1).Visible = False
Image1(2).Visible = False
Image1(3).Visible = False
Image2(0).Visible = False
Image2(1).Visible = False
Image2(2).Visible = False
Image2(3).Visible = False
Image4(0).Visible = False
Image4(1).Visible = False
Image4(2).Visible = False
Image4(3).Visible = False
Image3(i).Visible = True
End If
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 39 Then
Image2(0).Visible = False
Image2(1).Visible = False
Image2(2).Visible = False
Image2(3).Visible = False
Image3(0).Visible = False
Image3(1).Visible = False
Image3(2).Visible = False
Image3(3).Visible = False
Image4(0).Visible = False
Image4(1).Visible = False
Image4(2).Visible = False
Image4(3).Visible = False
Image1(3).Visible = False
Image1(2).Visible = False
i = 0
Image1(i).Visible = True
End If
If KeyCode = 37 Then
Image1(0).Visible = False
Image1(1).Visible = False
Image1(2).Visible = False
Image1(3).Visible = False
Image3(0).Visible = False
Image3(1).Visible = False
Image3(2).Visible = False
Image3(3).Visible = False
Image4(0).Visible = False
Image4(1).Visible = False
Image4(2).Visible = False
Image4(3).Visible = False
Image2(3).Visible = False
Image2(2).Visible = False
i = 0
Image2(i).Visible = True
End If
If KeyCode = 40 Then
Image1(0).Visible = False
Image1(1).Visible = False
Image1(2).Visible = False
Image1(3).Visible = False
Image2(0).Visible = False
Image2(1).Visible = False
Image2(2).Visible = False
Image2(3).Visible = False
Image4(0).Visible = False
Image4(1).Visible = False
Image4(2).Visible = False
Image4(3).Visible = False
Image3(3).Visible = False
Image3(2).Visible = False
i = 0
Image3(i).Visible = True
End If
If KeyCode = 38 Then
Image1(0).Visible = False
Image1(1).Visible = False
Image1(2).Visible = False
Image1(3).Visible = False
Image2(0).Visible = False
Image2(1).Visible = False
Image2(2).Visible = False
Image2(3).Visible = False
Image3(0).Visible = False
Image3(1).Visible = False
Image3(2).Visible = False
Image3(3).Visible = False
Image4(2).Visible = False
Image4(3).Visible = False
i = 0
Image4(i).Visible = True
End If
Timer1.Enabled = False
End Sub
Private Sub Form_Load()
i = 0
Image1(i).Visible = True
End Sub
Private Sub Timer1_Timer()
If hey = 38 Then
Image4(i).Visible = False
i = i + 1
If i = 4 Then
i = 0
End If
Image4(i).Visible = True
For j = 0 To 3
Image2(j).Top = Image2(j).Top - 100
Image1(j).Top = Image1(j).Top - 100
Image3(j).Top = Image3(j).Top - 100
Image4(j).Top = Image4(j).Top - 100
Next
End If
If hey = 39 Then
Image1(i).Visible = False
i = i + 1
If i = 4 Then
i = 0
End If
Image1(i).Visible = True
For j = 0 To 3
Image1(j).Left = Image1(j).Left + 100
Image2(j).Left = Image2(j).Left + 100
Image3(j).Left = Image3(j).Left + 100
Image4(j).Left = Image4(j).Left + 100
Next
End If
If hey = 37 Then
Image2(i).Visible = False
i = i + 1
If i = 4 Then
i = 0
End If
Image2(i).Visible = True
For j = 0 To 3
Image2(j).Left = Image2(j).Left - 100
Image1(j).Left = Image1(j).Left - 100
Image3(j).Left = Image3(j).Left - 100
Image4(j).Left = Image4(j).Left - 100
Next
End If
If hey = 40 Then
Image3(i).Visible = False
i = i + 1
If i = 4 Then
i = 0
End If
Image3(i).Visible = True
For j = 0 To 3
Image2(j).Top = Image2(j).Top + 100
Image1(j).Top = Image1(j).Top + 100
Image3(j).Top = Image3(j).Top + 100
Image4(j).Top = Image4(j).Top + 100
Next
End If
End Sub
