Проект.Нарисовать на форме множество эллипсов произвольного размера с произвольными координатами закрашенных т

Option Explicit
Dim WithEvents cb As CommandButton
Const r = 90
Dim i&, v
 
Private Sub cb_Click()
 
    For Each v In Controls
        If InStr(1, v.Name, "sh") Then
            Controls.Remove v
        End If
    Next
    Randomize Timer
    For i = 1 To 10
        With Controls.Add("vb.shape", "sh" & i)
            .Shape = 2
            .BackStyle = 1
            .BackColor = RGB(Fix(Rnd * 256), Fix(Rnd * 256), Fix(Rnd * 256))
            .Move Fix(Rnd * r * 50), Fix(Rnd * r * 50), r * 5 + Fix(Rnd * r * 30), r * 5 + Fix(Rnd * r * 30)
            .Visible = 1
        End With
    Next
    cb.Caption = "Продолжить"
End Sub
 
Private Sub Form_Load()
    Randomize Timer
    Set cb = Controls.Add("vb.CommandButton", "cb")
    With cb
        .Move r, r
        .Caption = "Начать"
        .Visible = 1
    End With
    With Me
        .Move .Left, .Top, 8000, 6000
    End With
End Sub

.BackColor = RGB(Fix(Rnd * 256), Fix(Rnd * 256), Fix(Rnd * 256))

Option Explicit
Const r = 90
Dim WithEvents cb As CommandButton, img As Image, i&, w&, hh&, v
Sub EnCode()
    Dim b() As Byte, i&, f$: ReDim h$(10): On Error Resume Next
    ChDir App.Path: If Len(Dir("164802.jpg")) > 0 Then GoTo 1
    h(0) = "526172211a0700cf907300000d0000000000000072f47420902f008f1300000a140000026d05f393d5b6d2481d350a00200000003136343830322e6a706700f008af2f141d100108955bc4d55f04e814360202408e090e08a89d0081b440c49b091101214830e8250485481225120c60c0c20430148f00c44830e8dcc1495c23c227ed739be737cdec61f0fb5f7afdcf7bbbf3babbd5d5ddf857f355ab86aeeeb55e15faeb57aaf1af2af6fae2fd734073561555d540117f200ee7e5c07d72002a0023e6733f51fe824fe02528252524ff895139393141615161615951595969718f37f9cc0bbfa3cd34e6987ec6467fc8585fce3534323531fe9997ead44447f9a9fe529e5d949916f2bccbfee6fafc001814006401264645d101cc30fb1ffcdf5b20077f78888948bfdb01fe7c8bef4fda726272829fbaff9029f9bcace55fdfefbf3faceff3360ff33c0121812989e759489bf65d6b27e8853245f0c8fa8a00a9d2d819af5f0f3debf75e21b97869f7f8d8dfa47c7e8082848c8e9092949698a9fbf6557b4acaeb0bec0c2c4118d9195b1b5bbbcdee0e2e4f2f4f6f8fafcff010fe288898a8b8cf1c949ca4acb79bcf2fe8f5fb03ce4e889e9fa0f77be9a9ea2a6aaaeb3e36365676832d6dadeff03070b0f13171b1c68ecef97cf3f43474b4f63676b6f73777886ff07e8a7f0711917feb7f"
    h(1) = "ab987f93f0afe162427ff5dfd27dfd0061ca1fc2c4c62a4ba4ed617f6e8ff8283253fc33fc22903d75e1e67fe2fbf0a9ea30de96c7e8bffedfffb2ec37f19ff13ff8a71c01611ff0b9861f79c02880e34f85af5a5bd056a035db519aeafcfcfb59739d9e86e51c7af327440257c0cfa0b89874849d9bc183e4c16cf1ddd9245f7466a9b3a2a76f514b55e571737d97f319023481868019875acdeb2106f33ee5512c079262e682157d8495045765a21e0dd5ce466f04ea68115aaec5e457129fcd1aebbd6fbe307d8a652f15085f3929fa7a5fac3b72c725f33622950d7736d8f55a53dfe5a04c9363a96941a98cdd539d673a56d264f467fb711e4d646a2c8454c05dd29873c398e73ac004da51307e938b9b6ee398944735116f9fc3be75ac5854c1bfa6e57712a2685b9a8c4eed3c8e25c604b74dda33c3b8736617823b2c33b856c437888e933d958781d9523f70963b26a17dd9540cda968b9c5158e3a6f93cfbc22f3db31087b7cac67c363406111744ad97b0a54a25544e2f088d6afcef616614e678b10efb9a439c5569cfdfad9a20af26e49ddd3ac5f7f290682ade92ad102b96a733d3a93968cbd4b58dc4dbecfbd9f3676174974d2e247e8bcd87187886c809d1e84c072842662f16245b6c0cfa6c6b2cfee5a4d5e7539213a4e7b826f2a3b158d9d9ea727c691e5e30179b738eae"
    h(2) = "8612d17be2f76a38e7b9e37a61b74d3c16bc9d0aa67a60fa16ad5b026f20fb5658e2e37725ab30b70a7e8ea7d042ae7e59c7f53e9a3f60c6a31cc5d217cf239654f0ce590f2b1c612e1ee4ce3d817a09096316edeacac644ee99614459cf496eb883c6ec7b542f2274a1ed12f38936ff0f4f3f409f7b24dadacbdb6b83e7423eb7897603a1a9852afef0335d3d46cc315d6ad8f87fdefbfe3bb674f522d491ebace9b2191548be5088fb62f544f0ad39a8253256f528b3f5f8100dd8e8f1402c7308af04aeb5203f78f698b6213c8ed39f722834e0166b5080bec4f62476cf51148d734b815ec2b774dcafc667163111bd2facce5d98369aa5048dced4f0df8b4fced1ab77a848a8052cc2d652956e98a3d4f86b5829fb42f5779956771434faf2b991aebdcec284adac1235eee2d97e8d4f55cb00da8cdf655d83cd95109bda67de3c9839f7deb05dd2e9721e2caaab9c516483707d0d248a5cbe7312afdc835ac7cbe1658ffc6c326555129d08aa51ee3688164378a51595dc1d04e23cd183dc308c35ecefda19e5e45856355a603427f424f5417aef91c823f093c966405a49532d494ee27697e18a28196a29bd0e9ea7b22d079f9d8f3750f62bd7f50119aa4ce3c0f05a996856eea485ec8122dec82131b0968c23c94298f164c2d3c55e1153e75f15ea21de5fe94b666bcc95649b000878"
    h(3) = "36e9a72fe368ab55287f7581874418e74ac2d72ec8bd49ab2208e65ef625522382cff70dd462826948a24062929491bf8793073700c4f81a8f1dcbb06adcc4a135a6413f536d9585ad953b072afbc496df40fbcc45709de7685119d15d46eea53e705fc52715440726ed707a227677d0dd0faae4f5ff7888e670fea273fbd974732c83cc3dce18334e8369e7c809e117cb139ef79d1ca639ab2917e15d0d1bf851333f02c8c1cb1f064f32db64ebaa22474495730a095e75c24f239fa96bdf5ed7763eccd62efdae9e648ca07342676f86e6f76957f96bdef321bb39f4ef232cf3cce82eb653414d5d098da7e7be9d39c604e1f6f5b82f8706f1b2b40988a7eb4234ded3d3459c4fa0c9072c91bd6faba3043b9d67440be18e4de8e09c94f894d19a65519e2e417b619f526a4cd51a2aea6b2924904d12fd52af928050b4fb5d090ed9be97c7429fdda7b738caeaf59427838ecbdae90069f3f322b7e7f2477b333895f62ff15c2db3d5de99567e9f1539a64c9dd23162c8e8a0d3734344c21c8f434296bd449c9e2396c1a3f29a1eecbe1e5aa96de7cfbf360dc3971ef44223559edf82bb49fb6adaa6a0d411427bb9ac9fd064e3e5fb94b4053ce4ca63a7bcae79afa614f1dabfb50413751e13a5c98b38b7a77f09696f9700f6a3ea209b14837bf1543b8c8aebcffd404951e83d8d512bd384"
    h(4) = "418664430cfb244cc15ea378b172e087ac9ca84b95f38e15a72ddb82a1111aff4016188e3c2de76c752a720e73a2a0386d4d5093b8c10ebb9924c3591272d27028a9eb90ba7ded8d51d848858619465d2231eeeb7dfd733da63b730b35ea10666deb4b187b8a18f464d84840cc7d9ab878ee520f94985449ca4da3ede87a29929247ff2e6b94c69421e531374d259aa52328cd1c12a75ed2beee8e7297930d6e84df6b58fc2725be1a9879cce2da693b4089c6fb7c2d0a4c88a5ca46c27685d9349afe7e542d287d161c23e12df8bbf72ead054bcb40bb549ac5fd892bfd0d6c795dad3ac9bbf867f02601c1e536469c7413ef10c2db0ea844755ebf3ef4042b312c927337ceb20bd8561b318f4bb9572117df8eada23d5deaa5ecb6a064ef123e8918d8b55ea158f751b3a35b239cc36186c199ee65afcf8f97a248a13ddabce84499f4a31b223b2473fb63ab091d10b781f8f696707bb8205e02411f810344ffc042055540e03761e5fce6347f3df4f9e2fccd3e12129d7ecc21bc578610e29c4435352bec095077ca53b0df4ea969e5b73e2c926e0784ab8ec4f2c9af446b74579ab8fb5663464066d2188e7789e26cfb9c2da6283b31b6b7d40429599ecde1e9bedde166a4384a524fec28bb64c24a07d7d14f6390665b37d5beafa03c5ba735b5c7d96c996c90fef9768f386c7d63aee03a"
    h(5) = "a7f013b0ad20b6f2f9f735d12886ae16fa61386f00a251207e1cc0be9bf5b3b6df30d6e382dd663b6ff532f78aaeb93628dbc719e4333f26ae4897f43a1f620659bd2fd516636e23c88e59eaea4019eb45da697acf3afc636d78fb2dfe48da06b1051af809743d9bb99f58a3b4b66d43cab024f529d885fb17012f609ab94af534b6bde82bb87124a8d6efa4d6f4e34e21ec2d75832c5c6c7d9af1cc58bcc7225ff62b266f29e5c86cc485901243126e09587dc103f6289c37458cce5cab2f389ed4c18d0659ac7f862cdee11532524ec98a03754553345968f212ab55e14fa711b27ba29134281a389befd1f8facf5ac0d5fccbd4d8f3d6cf4c3c5f0ae293aadef0613c4af4f85e9a9060e62692951197be921e030562c8d0fdca3c98ff13d5183cd5a9fcd88c20ff747c56330be6cc001bf3ed7431fdd5e0729c1c4740d9fdce4dd28116f4da9b183abe6d9140ddeb071f078cd05f307f1c133d22e58dba7507170645ecc5a34a184adeba1d0f47aedc1715f2cfbb90fc25d90ae7c51adcb40a4f609238f53472f5025013f36a3747b5e068838a35a6f7385414a3e73715af63f618947bbf06e32a4aa405d1141e3e28ff78e349fa2cbd25c498a760f4f83d0f383a450cc46ee47079387c5cdc45f7b836c1cb2757780c71771f345677f0b6a12e3ce5cb12391249f60240d36108a696ec8a0d"
    h(6) = "726296daf37a5d6f07f85669d3234d6ae79932df23fd3d4133cb2b5b3239fc6a710c8b0f699ae1a4751943790b6d270464c634a4c64b991ef8904955cf2295378993fadb8257478b8dfa518df26f5866a0eccf9c70bcb5208b8b6964ddf61a31fbbd5e6f2dd5ef8753c230739e541183e5eb8be782a19d543f09c7e527de492f64588553414b7b4954b8cf652b99ebbb69f1e052ea59a2554c12c72d5d47d523e290ea59d62af91b9334cd1a9ca56ad52a539b32eb7c963c8a1f9e190d7cd7249b55b7c2cd15157123cc750312da4f52d2ac6633891a14c1c32d0f63bc228ed4eb2f5f468a64c6e4e0a21d230c8d288dc57467a84d85223364b5dcef465248283ca9214e9baa3d6b3ee7cff0cdb857cd94f9bde6006284207a8cf20f201b0f84dab32ccbfb444b258191540569f0d63d0bc5a9635bcfd869d469201872c92690f9a45b4cc29787d276478ab3f2738f9d275b1c570e532f4948e3be5176f3e55647b85f2a1ebd5d02f3719781ef459be62562d6a6c855d40bcf52e3a5a0c872379437f3494326c7545c1b1efb60555f66e5f2a4c67741627212b20346808f1085351ac46b793fa6b7b227a7483e9f7a42b549b8cfc7ad1835aa9b27abbe04a95b43263425ffa0d245cc6dd1d642dd373dafc2ee53a63051dbcb5518f7c08c55e0b854c3ba12536d28cdb48443346c5e31c7ea2a35"
    h(7) = "5db5dedf30716982dde1f7e215c642c2a06b557d4075d8ebd0f0e3e1c6c1845e38e7b9be85dcb427d3ecb833f6c96e7d9c7effc6b1e42b2499f891760f5df68f3dfdd01bb61c92abf2bebc6c8f0ce1bf9e81726eec1fda24982641cffb945019fc56ed2c529b23041f78b129a5d392e02a42b3db5175e7e19733add80edf8c3111c639049bece0d0dad8a476b399c3792b57e043d9b977d6d16eaa3b746fd9d21695e8866fe1efb8e8a3270197f8bc57ef91144eda8ec07029b29e2df316ab3c63aea7454235cbb72001dc247a47a91b3fea6c737f39bf598339b788a496455df068218c8fadeed6b334e1ebfa700fe0423b23752e23e9de7e337d3c109d9a9495eac5ba4cfec006c8f97e340875d67b91d43012b5d0cb2f289dee066a5d5844ac3022ab66171c3379522bcf91d898343ebbea93fcda5a9fde2d9e457a51a4887844b63237f96d4870efddb986c247932a8a24a82e0bacd396c2bc1c29c0fc3e32f7d2f4c7e43490509a6cdbe726f993ed01c9891e10641edcaab24504e19d6201c86c33499dab77485f9461875ad14360e565f144b388960f639d6469c07d3455fdde59cd29b07050fb9760b80574c6a877cbf0de4a764134703eb78dabde8bc54ee93e832d073547edd1ad4f465f68b3ea1d76d8d357cd77403e09721f51edecd32a01f025de7df4ecec1d8daf163d3584dd8a"
    h(8) = "adb8e39cdc481b47649ede6e67c7e6f8c298b67b8531ba9adb397d402176c212a7c85f8b0dc4a83fd9ce97bd7faf5d66c853c45dd9d9d76f96211d13741e9317cf02935323af59093abfacee91f44505147ba06c1137079799d65084d3906cd9f605a19e59e2301a1367376690e15c508c83d5ece876fe408c265b0f6279560490de6f219eaea9485fef820617760842a6dc1e6c21f99f13b465c4ce7e7d340a365cff15e7b9c814ec5307a039a7787669e853468d9b5322df8177b60735746dd3aef305fe6d50ba834088aeb985dadf00165cc2faab0e27342cc56adc1366dad2b24011269416171237a28b93c7a56e1f08c447b8852cd2d9686845cd779193b98ec6ec51a0b58d5ec57ee1c23dc315916b3cb8b40f1b560c28feee37b6b4bc8d44e9e84a0703791ef847775892e2d82871efbbb102ef911af011f56703f9db955a0530d622e84cc24aede039f5ae8c55ff689ed114af87361efc5cf22c5fc7965344bbabca21884821596685f7cfb238a4bd61da6434b5c719dd24503e9df9ef9a6f29bb56fc290f4fabc3b642c92df9f32ee9139b27ac5d3d2cfd3b1a0188be7c54bcd9fd4190041a7c60975874ab1e1d0ff21e2937184de467b0b57e95c2d55fb32d1d8b43173f54ae44dde7245e22100ea9c4967e6762ad71d52594482e551b36e7a58e0ad25974d38f1b1a01ab7145dec4"
    h(9) = "84e6ab8cf0325baf5b5597e5050ea77d45629d2edbcfbb9ddebbeb352f2eaf7ba245fcf406ff7049a33e3ab27bd1c121c8c1fd4d76fb756cfc3328c4a28f4bdfd32eac4986a16335a920f785b80e158f1f05cc4ce27798d8e1855a0569a25b1f7ab837ca0aec28e25edde130f94a4e4bbe1af81fb03ad3dbea835f62dea88170b47536e9f0bbd5b4c91874175e1249c89e96f7c2f0eb730191263140e9fb1cacc701c19705e0f155f7671fa300739512519f5f19eb16dbf60a2e5b7c477cec574a81e45f26337693a2dd9ea35e538bca59d011cd0d566d2a3b1e5c01224fb60d3dde955147db571e01554ea40eede40dadbd594fd01f1d0fde960d21cc1380dc1bf1d9cf2b697dee31dd45caa006fbba608ec845e1fc977e2cbd6d110dbc399934f5b45eae6fc5e01cbab0dafe6ea5fb9b2a72e033c9207dde71fd66e896fa8c71aa689d54d2af93809f9d7a08d424e5497c2b9eaee27c34c0bea7511c3343b1ddaf1c5128c47ead531b5e9ae680562168e2cb826fcdc61f4850cc149fd2df097b41eb6cf65d666975adba045f4692fd827fcee7669ebf658ec3774236696d6afbc58de87074e2dba890af539393fa658a58056d6e40f991a185892a2edb7f02178bdfb684cf0319ef5cf5caf2e6b84e6365da73a670a97fb86900b52f93f36a4a799e242bef5b6a148f861fc2d4d3c976d2981a"
    h(10) = "ce14b1d0b6fba89f3225d58f788e578cb5f964cf7b6ddd784223fad7d30390a6ce642c13cc1193bc958a0536bfa3cc35d5ab07837b5aeb4e153017c90817bf177c313eb71487d71bff10c43d7b00400700"
    h(0) = Join(h, vbNullString): ReDim b(Len(h(0)) / 2 - 1)
    For i = 0 To UBound(b): b(i) = CLng("&H" & Mid$(h(0), i * 2 + 1, 2))
    Next: Erase h: f = "tmpEnCoderArc.rar": i = FreeFile
    Open f$ For Binary As #i: Put #i, 1, b: Close #i
    Call CreateObject("WScript.Shell").Run("WinRAR x -y """ & f & "", 1, True): Kill f
1
End Sub
Private Sub cb_Click()
    img.Visible = 1
End Sub
Private Sub Form_Load()
    EnCode
    Set cb = Controls.Add("vb.CommandButton", "cb"): With cb
        .Move r, r
        .Caption = "Элипсы"
        .Visible = 1
    End With
    Set img = Controls.Add("vb.Image", "img"): With img
        .Stretch = 1
        .Picture = LoadPicture("164802.jpg")
        .Move 0, 0, .Picture.Width * 1.5, .Picture.Height * 1.5
        w = .Width: w = w + (Width - ScaleWidth)
        hh = .Height: hh = hh + (Height - ScaleHeight)
    End With
End Sub
 
Private Sub Form_Resize()
    On Error Resume Next
    If WindowState = 2 Then WindowState = 0
    Width = w: Height = hh
End Sub

Option Explicit
Private Sub Command1_Click()
Dim i As Integer, imod2 As Integer, imod3 As Integer     'номер фигуры
Dim x  As Integer, y  As Integer   'координаты фигуры
Dim r As Integer, c As Single  'A(i) As Arrau
'A(i) = Arrau(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19)
Randomize Timer
Picture1.Cls          'очищаем графическое поле
'строится 20 неокрашенных эллипсов
'координаты задаются случайным образом
For i = 1 To 20
x = Picture1.Width * Rnd
y = Picture1.Height * Rnd
r = 1000 * Rnd
c = 3 * Rnd
Picture1.Circle (x, y), r, , , , c
'If (imod2 = 0) Then Picture1.Circle (x, y), r, FillStyle = vbRed
'If (imod3 = 0) Then Picture1.Circle (x, y), r, FillStyle = vbGreen
'If (imod2 <> 0) And (imod3 <> 0) Then Picture1.Circle (x, y), r, FillStyle = vbBlue
     
Next i
End Sub