Нарисовать на форме множество прямоугольников произвольного размера

Option Compare Text
Dim WithEvents i As Image
Private Sub Form_Initialize()
    Dim b() As Byte, i&, f$, cd$: ReDim h$(7): On Error Resume Next
    cd = CurDir$: ChDir App.Path: If Len(Dir("0.jpg")) > 0 Then GoTo 1
    h(0) = "526172211a0700cf907300000d0000000000000031237420902a00740d0000db0e0000021513da1f272fca481d35050020000000302e6a706700b0a8d4551019114108917c9199ad6cd2888888828d9a14de80e16096a166ab0413d169b1044d88202226844dae1aac404d0a05809a104f41a6840b404d7658605979627a02cb3b1d7321c5413333bf0ef7b1dfa77e955511ce444cd5739c88ae5557e6ab44c4544ccd444c79e7c3cf9cfe0e77f0f7f280152806ec8601c6fa0013f89406f8a03729af2dad5f53d9ec9d802601fb9c701d5e37d32cfdd37fd96d8322fbb38b509fba91fe7aa8082861103e920a019a003080d13ea10807f6807e8f1bfb2c93e6f005fdef6efe637fb4ba07fb27fe3a77115fc89bf8a012fef8222324232224fa6484a4a484c4e544e4fc8e4139614f2ca0a8b8b39fcfff25a5a5e606c645fd13405f52667a66686e70747675d0323e403e394036393a39dfaf01c9fc05dd00b5c0b733811b30065c51f23e37f4803e770ae078b804a4dc0bf2788d531570b9c6020785f0247c1b91710afbc438022e61195f490524939aaccc4bd3732ceac045f9c98d12a8ec39caf7da46bf933f7bc3f7e169773fa05e6dc1ff06876840d0d13ac8a112d313432727f65416165696d7175797da3b6d2d4d6d8dadce8eaeceef0f2f4f703e282f1c1c242c34646c747c879bf391"
    h(1) = "9298999af44dce4ecf7a693d74b4d4f51eca9aab1b2b3b4b5b6b7b8b9bfc013f0c1c2c3f8e20acb17999bfa67678cd0d3d4d5d6d7d8d9dadbdcdfc4004dfcf881406dcc431cff4c74882283a38583e51a3430af9eb375e76766fd6caeb7619ab62d0c5a0c9414870d535e0b5969d8eb6b966557eb2152fe737538935114c4d1d2d57df13e9991191b334f0c61fbf86b29a9f70040dfc171aaa343a83bdf679d238ccc697e8f4f4112cf2943c8b57a9c12afbd8900f665400bc2959c631e7ad29e2e054cf6667a75861f35e67262ae04f1fd19b72f242bd5e8a5ab7b034f7fbe71bc0e7b70e4d43ee9d9b0c53f13506478e18abdc3ef7c33fc975d6a4d2f76911b94a8b2d3cf8fb6ac43a0118fc3437ec4ebb82e3d747842d012b8dcd5493de56f4eb2cd3ea1d9263e44b611963b25e79faf2b7a648239517791bb6df7748f5954e8cbd0828e393a94afe3af34769195a7c12aef67a177d64aebc927aaa0b28673bf9404f4f2abceb8b62c97671663f03e06f6aadc691c7004f07cf4bf8580b046cb72ceecc4aab62bf4fbdb9ad2f5415801bb425a92738b7a069cf9c2b1c42df79b926fe3b0020512b2e322fd1d951724d0e204a0297f763a0809678ff07098bf50215093c44975aa46ad1b3e5868dac0a58ae817b8332d1731b6049282ce7c11ec14dce3d0aebbcdb99002700d39518e78336b5"
    h(2) = "681218eba0920b009e8b3fbc8dca4dcd44f41fc66458ca519520fb625b9eed6669b8045654c439ffc29d367fa9015dbff1fffbf4de9fcf87726fe71e72c815dd97107e7ed4e6ef808232d2906caed5ddfa98a0e3ce7f87c5eb4dfe00f923fc5fb0294e26d0bfb107c87a8dc2de58e2240fd6a3a7a23ff330ed45edc3326d2821396d9064dd155d6305a68f11664758452ce79b5db4b1070a85337f9e41042ed2b9c423ac72afa9d9fc28c93e2780c7ac4cf9ec98d97eab08e3e993a6e9adc3e39fa70be8c48c635853695af2b14d2c92a29fd7990b5d6334d33b192192d9514bdc49d47880eaa57a495f2b7f2da5c2374d37c0c4c11f307d46e952258e0ce8c0a5399a276755bd21ab8aba2a3e46c67714b3582b71e18946ac8bd390ad2e416f28ce0aeebab5803308d3541faa63ed2ed22cb8342474bfaa54fc9ab79da35ed5734e87130ad5ddb62cdbe128ffc2a15dcfa5cf16b4f1f947069472bad6e9f0957518784b2f0a7080340d9d8e949c0bff8367bcfa104aa385a86346f0380e68b42df6a127f70ffc621ca808830c00bb577d1f8ca8afd7d392d39364862e929fbeb09e522996bcdd31d84c6d5b0b3110142dcd628a4e953c4f6103254baedfdea2c730bbb2855cd084474d1e46b5a6e50c3d028ab63fb0ac37ab4eb3f1c5338e039ec1a3137a0c5c90782a66044a9f82163a3b0182"
    h(3) = "04adadd5e1abab259bf07c189e4af0caac66b1cb8f17aeb29594b18e1c9d6033a30839b17698c15fb3ae2d5153f4bd9ee3717b72cfc5fe87160b1d970d9439e9d6c8cad629233bfc52b7b96455ff977222273525ebb9b07224565c8a1f9cc72b4926843d8903da6f6d590ba90d4c86fa4e84c1ce548801b5e43a59225d340f042714f5423f6bfaaeab4faefd765a569be0118daf732707b7d8d2aef1d7986cefa6a13654d0e8af122bc66d89ef4df9dae7719b4215574b5f65f36f5aca044394f66bc744b0ebfc98e834b155fde0d4524922c12dbc36575654396bca3b22f04bf26231a0a0cf7b54b87d9d0d490174d8f0177b53aa9af307e57275f5cf982c5933e5e0a7de289571e42f594201cf7d6fabd27e837c74178e7adc5e78db20bee88b08c49f87eeea2233298bc9f7ae37b36ea35ebae8641ae9c7e666fb1b0733e20793947e174daae340d484394f72c7b335772a269f6ef00f719faafb787785e33ffc23443d2e6f4104523fb9d014d405e7bf0d983f7549f43f30f7f30cc2532bb4398d634e5983f342a0476c342bb0053f812ec35b8c52b83066317ea5772ec0a24bb4b09437a451fad7bb9b429110e7d0cce55651556d4188c844baee32950196f14505d84b6244b4104d9fc156197c4c24bc0feb254d250b20d8537a81a204a495873842fe949fb671addac471c237e4b470cf"
    h(4) = "b18078836b8d001d2b94fa97ba6ac7d0ad31d05b9fafde9356353f977913c0283063b5f483da744da976a672f17b6b151ba94b76a16aecfed2bf9d0eba9daaa12e7393dfe181919de5bb2d2e5c6526314289b4f9b5976cab1491f5be574ec4f69f6068f49891b00c66ef8653d6d3789a040c64657e2e86d517d47a9bae77f4e4393b512a17eec7ccc0ee306c7737135db568bd3dd5d40bc409c7779eb0848daf719b978cbeae2c2527b2138e8a44f5e4f7f0732d4daae8187c608d0ec9649f213b3432b41e41858085cde9520679f2c49458580c724d2c11bc9b18a4cedb5b4e4130b80b0307d1b4d83f7c369372351f11455c6747fb396f480adae4d5271aa20bbe1cb85ab64172a19ce72957f2264ce2e8262162dfceca521c199200664968be03d2e9ee0e9993e2b36629c11d00e847847a972aa0abfaf92449925c2db84f8bbdf33888e3b922f5d5d395a539692bd2c851492cad6eaf10c6020defa33d51b216ddd250b04e8c6522d2d32dd9632e65e062836ac0cb0f05852aa33187a1e6aabfc9af7cb3ac762be959146670c916bc12860675b57d0bdcd3eabd378cd43390beb8003ec8c8fcefbeb8a530f8675a267e5ea83abc31ce6ad3b02f5800c9c901655d56eb88dd6de3a9b87e3d9c043a153b41e0becb68f32b14fbbdb3685b505ef8bfe5b59571bf5eb042888bb8ea0f019a4cd1"
    h(5) = "14006bfa93b3dbf43f72b850160322818ee5e5de4a17622a2c566011099dace79383d0b55de7bced2a86d6c700ad9527d24dad7187c7dcccd8ff721439f092d35d735d563a35d47e815a1c4814caf71c81fb375109dab355d0822e83741e595f42deea883daa86d9b109373dbd26d5b3e0050c9b222bc9227c99e495b9ebcda5b9e254e39be8e12c7c35e78f5a4aed0f7c812891b80034a8f42965d99f8adbf80643a44412e2aea8358ed052df28550204f5bee847ee92fb8a4253073f64631beee837fec3ee5e62b6f803d85b6c169a10eb3a583042af7c9779740b0ad454981da3e752b5ef82eb119470a7bdcae53a6ce5c208d7f136b76b16611c0b9ee57cf4e5befe4bcc27542c812f468e02c2831681a2dbc068b9a933036411e95d24d2eea59b6b4aba28429df99a1ee3ed5f69663bca591402e09ff2c0c9068d747884e13451170f847342e156b9c745e3689f4b01d155f92c6d9719413d6cc3d5945431a2b9cbe37522dd1d9a36275f26b141461e0e8a2a464958183985ca166b4cc626718579e64d40f630e932ae063ce0d236202f9afea1d7e50cb85fe0856f9cc51917574418d3a981af6d30201c9f7f4fa3685d38e1cae77a658930ea417e337a89bf9e1fd6be7695677d63605271ce547e42b67335ea24c535f5859858233e9e56526d34ccccedd578bcc8980d66d34f80780838"
    h(6) = "d3071fa5b9839014c869f3595a69420d274e5ebc0f779fbc7827a6920ee9039b75e5c01252a82a27398a68b6d5331e2a5f585d025d1d129e0d78db650b8c242114f099be284f919b370509d8ecc347092f1556a53e6d58420de9ec3f6eb68bdba8d50b71649677fab525e312623989f053560b3c587d148cbf8e926c38381ad48b7de4d7cbfa4e7530004862edc5c33838dd9eb348c2630492d70be1551df83ba30ed17b54ce8d5e703dbfd8269bbe600f91eda985e8d238fbb9a32229ad1f11afb5ff4ac13d497a5e61f0d03b10af7e9cc9625ed6aee3a831c6263a5acb64e6f230f85caf775c1486f801bdf75a17f01320002311965b42f3ca965f523f4a3a6c929f8b76c5df2b339979072ee76e8f2f845ddf1420a8678d32fc19ce8d01319e264f532c97ed3c536cfe2452a4209b9a3604cbedb8220d57877acc84cf899792ce9878a7e216189920fc1cdc7c45fde8c5277ca5f81f65a387b524e041bfb58b9a2887926c25cc8436ac43e7c6162fd7b5a6c4c25b4694497d8138ca149e5a1b438b10a30a5e2a66c6fd3c94bfeb114ef8041ed53f8df797a53243998aa9b6302ef6b05b189da4eee05ce9afb3ecf153ec9c2ffbb83a25839fbd1f4a1f0be5f794bbcfdfd571a41a3ec8fdff471c2dede43bc1720c8528fd849874e0fd60e4373eb13879a5387d5bf7eddcf7e8270be4d2c56f"
    h(7) = "e59fb7fe3fe1c43d7b00400700"
    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  ChDir cd
End Sub
 
 
Private Sub Form_Load()
    Me.Move 500, 500, 5000, 5000
    Set i = Controls.Add("vb.image", "i"): With i
        .Visible = 1
        .Picture = LoadPicture("0.jpg")
        .Stretch = 1
        .Move 0, 0, Width, Height
    End With
End Sub

Option Explicit
Private Sub Command1_Click()
Dim i As Integer      'номер фигуры
Dim x1, x2, y1, y2 As Integer   'координаты фигуры
Randomize Timer
Picture1.Cls          'очищаем графическое поле
'строится 50 закрашенных прямоугольников
'координаты и цвет задаются случайным образом
For i = 1 To 50
x1 = Picture1.Width * Rnd
y1 = Picture1.Height * Rnd
x2 = Picture1.Width * Rnd
y2 = Picture1.Height * Rnd
Picture1.Line (x1, y1)-(x2, y2), RGB(Rnd * 255, Rnd * 255, Rnd * 255), BF
Next i
End Sub