[Black Rain]

Eklenecek nesneler; label1(X), label2(Y), label3, label4
shape1- shape özelliğinden circle seçiyoruz,
Image1(yukarı ok), Image2(aşağı ok), Image3(sola ok), Image4(sağa ok)
--> Module Açıyoruz En son Bölümü Modüle Yazıyoruz
(Modül Açmak İçin; Project-> Add Module Seçiyoruz)

Private Sub Form_Load()
    Label3.Caption = Shape1.Left
    Label4.Caption = Shape1.Top
End Sub
Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    gez 0, -50
    If Label4.Caption = 10 Then
        MsgBox ("En Üst Sınırdasınız")
        Shape1.Top = 60
    End If
End Sub
Private Sub Image2_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    gez 0, 50
    If Label4.Caption = 5660 Then
        MsgBox ("En Alt Sınırdasınız")
        Shape1.Top = 5610
    End If
End Sub

Private Sub Image3_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    gez -50, 0
    If Label3.Caption = 0 Then
        MsgBox ("En Sol Sınırdasınız")
        Shape1.Left = 50
    End If
End Sub

Private Sub Image4_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    gez 50, 0
    If Label3.Caption = 8400 Then
        MsgBox ("En Sağ Sınırdasınız")
        Shape1.Left = 8350
    End If
    
End Sub

--------------- MODÜL İÇİN----------------

Public Sub gez(x As Integer, y As Integer)
    Form1.Shape1.Left = Form1.Shape1.Left + x
    Form1.Label3.Caption = Form1.Shape1.Left
    Form1.Shape1.Top = Form1.Shape1.Top + y
    Form1.Label4.Caption = Form1.Shape1.Top
End Sub