get circles to orbit

[Navarone]

I have been learning how to draw circles. Now I want to learn how to make a circle orbit another. I imagine there are many ways to do this? Given my code below, what would be the simplest method to have the smaller circle orbit the larger one?

Private Sub Form_Activate()
    Dim eX, eY, eR, eRGB1, mX, mY, mR, mRGB1 'declare variables
    ScaleMode = 5 'set scale to inches
    'FillColor = RGB(255, 255, 255) 'set color to fill circle
    'FillStyle = 0 'set transparent or solid
    'DrawWidth = 3 'set line weight of cirle
    DrawStyle = 0 'set solid =1, dashed=2 or dotted=3
    eX = ScaleWidth / 2 'centers circle on form
    eY = ScaleHeight / 2 'centers circle on form
    mX = eX + 1.5 'centers circle on form
    mY = eY + 0 'centers circle on form
    eR = 1
    mR = 0.25
    eRGB1 = RGB(255, 255, 255) 'set line color of circle
    mRGB1 = RGB(255, 255, 255) 'set line color of circle
    'draw the circles
    Circle (eX, eY), eR, eRGB1
    Circle (mX, mY), mR, mRGB1
End Sub