HELP! cant move a shape on screen :(

This is just a samlpe that I made to demonstrate my PAIN :)
I want a simple shape to move on the screen as the user moves the mouse, but it just flickers. here's my code:

VB Code:

Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
        Dim drawPath As New GraphicsPath()
        Dim gr As Graphics = Me.CreateGraphics
 
        drawPath.AddEllipse(e.X, e.Y, 100, 150)
        Me.Invalidate()
        gr.FillPath(Brushes.Red, drawPath)
    End Sub

and here's a screenshot:
http://www.vbforums.com/attachment.php?postid=1226482
The red ellipse is supposed to move on the screen as you move the mouse. Well, it does, but the screen flickers.I'm trying to refresh the screen by using Me.Invalidate, that causes the flicker. I dont know any other way :(


Download the file to see it yourself (next post).

The project (same as the code above)

maybe this helps you .
by the way , it's vb6 proj.

well this evil uses bitblt, and it's in vb6, naah
I want to do it with .NET.
thanks though :)

http://www.allapi.net/apilist/BitBlt.shtml

.NET supported

Quote:

---

Originally posted by pirate
http://www.allapi.net/apilist/BitBlt.shtml

.NET supported

---

hehe, it's different belive me, I know how to draw, I just don't know how to draw it correctly.

do you ?
Well , I'm still looking for a way works , for me and yours .needs some time .:cool:

got 1 but It's not working:p , try to find out what's bug is that .
helpful though.

well there is a way that works without flickering. I could invalidate the form in MouseMove event and then paint the shape in OnPaint event. This is what most of the people have done in their sample programs on GDI, but the problem is that it get's SO SLOW!!!! there should be a better way :( anyone?

These 3 magical lines do the trick for the flicker thingie, but still kinda slow :D

VB Code:

setstyle(ControlStyles.UserPaint, True)
setstyle(ControlStyles.AllPaintingInWmPaint, True)
setstyle(ControlStyles.DoubleBuffer, True)