Вот код:
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 нужно разговаривать отдельно. Запускаем и смотрим.