• Home
 · 
• Games
 · 
• A funny way to make your control escape from the mouse pointer

A funny way to make your control escape from the mouse pointer

A funny way to make your control escape from the mouse pointer

Rate A funny way to make your control escape from the mouse pointer

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

'Your users are going to hate that.
'In this example you have to put a Command Button on your form and copy this code
'you have to put controls that have top and left properties.

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

'here you have to especify the speed of the control.
s = 10

'Here you especify the name of the control you want to go away
With Command1
    
    If Y < .Top Then
        .Top = .Top + s

    End If
    If Y > .Top Then
        .Top = .Top - s
    End If

    If X < .Left Then
        .Left = .Left + s
    End If

    If X > .Left Then
        .Left = .Left - s
    End If
End With
End Sub