Вот код:

Private Sub Form_Load()



  Set m = DAControl.PixelLibrary

  Set fillImg = m.Until(m.SolidColorImage(m.Red), m.LeftButtonDown, m.SolidColorImage(m.Green))

  Set ovalImg = m.Oval(100, 100).Fill(m.DefaultLineStyle, fillImg)

  Set rotXf = m.Rotate3RateDegrees(m.Vector3(1, 1, 1), 45).ParallelTransform2()

  Set finalImg = ovalImg.Transform(rotXf)

  DAControl.Image = finalImg

  DAControl.BackgroundImage = m.SolidColorImage(m.Blue)

  DAControl.Start

  

End Sub

Пояснений пока никаких. Мы просто пробуем и смотрим. О Direct Animation нужно разговаривать отдельно. Запускаем и смотрим.