Help!!!! I'm dead~~~~

How do I make a rectangle bouncing off the screen at the top and the side infinite without stopping.
I'm making a screen saver due...VERY SOON TT_TT
help please

Using shape function is okay, but doing it without shape function is preferred

either code is fine for me as long as it gets done...
I'm stuck on this code for hours..

help!!!please!!!!

Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Integer

Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long

Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long

Look for example code using these functions.

Sorry havn`t got any!! Should be really easy to do though using these..

Basicly they allow you to paint a picture to a form very fast

Hope this Helps!!