Property Table:-
|
OBJECT
|
PROPERTY
|
VALUE
|
|
Image1
|
Picture
|
Bitmap
|
|
Command1
|
Caption
|
Move Down
|
|
Command2
|
Caption
|
Move Up
|
|
Command3
|
Caption
|
Move Left
|
|
Command4
|
Caption
|
Move Right
|
CODE:-
Dim x As Integer
Dim y As Integer
Dim v, w As Integer
Private Sub Command1_Click()
w = w + 10
If w < 3670 Then
Image1.Move v, w
Else
Image1.Move 2640, 1560
v = 2640
w = 1560
End If
End Sub
Private Sub Command2_Click()
w = w - 10
If w > 0 Then
Image1.Move v, w
Else
Image1.Move 2640, 1560
v = 2640
w = 1560
End If
End Sub
Private Sub Command3_Click()
v = v + 10
If v < 5350 Then
Image1.Move v, w
Else
Image1.Move 2640, 1560
v = 2640
w = 1560
End If
End Sub
Private Sub Command4_Click()
v = v - 10
If v > 0 Then
Image1.Move v, w
Else
Image1.Move 2640, 1560
v = 2640
w = 1560
End If
End Sub
