Вопросик по VBA

[DeWolf]

народ может кто может подсказать как написать програмку где кнопка будет убегать от курсора на Visual Basic. В делфе то есть обработчик событий. А в этой срани как то разобраться не магу

 

[Тарас]

народ может кто может подсказать как написать програмку где кнопка будет убегать от курсора на Visual Basic. В делфе то есть обработчик событий. А в этой срани как то разобраться не магу

Private Sub Yes_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call showYes
End Sub

Private Sub showYes()
Dim currentX As Integer
Dim currentY As Integer
Randomize
currentX = Int(Rnd * (ScaleWidth - Yes.Width))
currentY = Int(Rnd * (ScaleHeight - Yes.Height - 500)) + 500
Yes.Move currentX, currentY
End Sub

You must be registered for see links

 

[DeWolf]

пасиба