Dear Helpers,

I took a VB Course, but since school started, i haven't practiced because of all the school work, and now i regretfully almost forgot many things about VB. Thats why i baught the book "VBScript" hoping it will be a good reference.

Anyways, my question is, On Activex Document EXE, im trying to make a picture follow the mouse pointer on the form. I've tried some ways insuccessfully, can some one please show me a way?

Apocalyptic Regards,

why don't you show us the code you wrote so far? This is the standard way to do when asking help for school homework.
Marco

I didnt save the work i did, but i was working under the:

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

Then I tried some things that I knew wouldnt work:(

Need more info??? I need this solution Soon, thanx

Apocalyptic Regards,

so you meant the dog ate the homework, right? :-)

Anyway, you need to show an image in the form, so you loaded an image using a Image or PictureBox control, right?
Now, you want to "click" on the image and "move" it around with the mouse (like dragging)? Or do you want the image to always follow the mouse when the mouse in the form? They are two different problems

Marco

No, i didnt work hard on the Homework... Ill work harder next time.

So, i have a picture in a PictureBox called Image1, I managed dragging the picture, and stating where its moving in a textbox, using this:

Private Sub Command1_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
Dim a As String
a = "Now Dragging"
a = a + Source.Tag
a = a + "Over the open button"
a = a + "State="
a = a + Str(State)
Text1.Text = a
'"Now dragging over the button"
End Sub

Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
Text1.Text = ""
Source.Move X, Y
End Sub

Private Sub Form_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
Dim a As String
'a = "Now Dragging"
'a = a + Source.Tag
'a = a + "Over the form"
'a = a + "state="
'a = a + Str(State)
Text1.Text = "Now dragging over the form"
End Sub

(It was almost trial and error).

Anyways, i want the picture to follow the mouse pointer on form load, as soon as the mouse pointer moves, no clicking.

If you can, dont tell me the answer at once, give me some clues, ill try to remember something... i hope i do :)

I forgot to ask you, so do you think "VBScript" will help me with my condition?

Apocalyptic Regards,

Sorry, I don't know the book you mentioned.

From what you described, it looks like you want a custom mouse cursor. Did you look at the MousePointer and MouseIcon properties?

Marco

Oh... that should do it, it worked with me, but what i actually wanted was a small picture to follow a normal mouse pointer around the form. But its OK, thanks sir for the help.

Apocalyptic Regards,