>>213さん
以下で試してみたけど、数秒おきにチカチカと白っぽい線が流れてしまう。
どうしたら良かね。
やり方が根本的に間違っている？？

'円のビットマップ
Private bitmapBall As Bitmap
'移動用
Private m_posX As Long

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
'図形描画のために変数GraphicsFunを定義する
Dim GraphicsFun As System.Drawing.Graphics
GraphicsFun = Me.CreateGraphics
'図形（円）bitmapをつくる
bitmapBall = New Bitmap(100, 100)
GraphicsFun = Graphics.FromImage(bitmapBall)
'GraphicsFun.Clear(BackColor)
'ブラシの色(赤)を指定して図形(円)を描く
Dim BrushColor As New SolidBrush(Color.Red)
GraphicsFun.FillEllipse(BrushColor, 0, 0, 100, 100)
GraphicsFun.Dispose()

Timer1.Enabled = True
Timer1.Interval = 50

End Sub

Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
m_posX = m_posX + 1
Me.Refresh()


End Sub

Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
e.Graphics.DrawImage(bitmapBall, m_posX, 0)
End Sub