Giải trí chơi: Vẽ và dịch chuyển 1 Shape trên UserForm

[ndu96081631]

Xin mời dợt tay nghề với file dưới đây!
Tôi có 1 UserForm với code sau:

Private Declare Function Ellipse Lib "gdi32" _
  (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
  (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long

Dim hdc As Long, i As Long

Private Sub UserForm_Activate()
  hdc = GetDC(FindWindow("ThunderDFrame", Me.Caption))
  Me.Repaint
  Ellipse hdc, 0, 0, 50, 50
End Sub

Private Sub CommandButton1_Click()
  Me.Repaint
  Ellipse hdc, 10 + i, 10 + i, 60 + i, 60 + i
  i = i + 10
End Sub

Các bạn chạy code trong file này rồi bấm button thử xem (bấm vài lần)
--------------------------------------------------------------------
Giải trí chơi: Từ code trên, các bạn thử sửa lại sao cho việc dịch chuyển shape trở nên tự động (không cần nhấn nút) ---> Tự động thế nào là tùy ý, miễn sao đẹp mắt