Tällä lyhyellä koodilla saa esim. shapen liikkumaan vastakkaiseen suuntaan kuin hiiri. Lisää formille yksi shape nimellä Shape1.
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Shape1.Left = (Y - (Shape1.Width / 2)) Shape1.Top = (X - (Shape1.Height / 2)) End Sub
Aihe on jo aika vanha, joten et voi enää vastata siihen.