دوستان کسی هست بدونه این کدها رو میشه به صورت حلقه در آورد یا باید همین طوری بنویسم :
مشکل اصلی آبجکت ادیتور هست که یه آبجکت PictureBox هست و تعدادشون هم زیاد هست و اسامشون رو ادیتور یک - دو - ... - صد و بیست و هشت گذاشتم :
کد:If B(1) = 1 Then Editor1.Line (0, 0)-(300, 300), vbBlack, BF: E(1) = 1 Else E(1) = 255
If B(2) = 1 Then Editor2.Line (0, 0)-(300, 300), vbBlack, BF: E(2) = 1 Else E(2) = 255
If B(3) = 1 Then Editor3.Line (0, 0)-(300, 300), vbBlack, BF: E(3) = 1 Else E(3) = 255
If B(4) = 1 Then Editor4.Line (0, 0)-(300, 300), vbBlack, BF: E(4) = 1 Else E(4) = 255
If B(5) = 1 Then Editor5.Line (0, 0)-(300, 300), vbBlack, BF: E(5) = 1 Else E(5) = 255
If B(6) = 1 Then Editor6.Line (0, 0)-(300, 300), vbBlack, BF: E(6) = 1 Else E(6) = 255
If B(7) = 1 Then Editor7.Line (0, 0)-(300, 300), vbBlack, BF: E(7) = 1 Else E(7) = 255
If B(8) = 1 Then Editor8.Line (0, 0)-(300, 300), vbBlack, BF: E(8) = 1 Else E(8) = 255
If B(129) = 1 Then Editor9.Line (0, 0)-(300, 300), vbBlack, BF: E(9) = 1 Else E(9) = 255
If B(130) = 1 Then Editor10.Line (0, 0)-(300, 300), vbBlack, BF: E(10) = 1 Else E(10) = 255
If B(131) = 1 Then Editor11.Line (0, 0)-(300, 300), vbBlack, BF: E(11) = 1 Else E(11) = 255
If B(132) = 1 Then Editor12.Line (0, 0)-(300, 300), vbBlack, BF: E(12) = 1 Else E(12) = 255
If B(133) = 1 Then Editor13.Line (0, 0)-(300, 300), vbBlack, BF: E(13) = 1 Else E(13) = 255
If B(134) = 1 Then Editor14.Line (0, 0)-(300, 300), vbBlack, BF: E(14) = 1 Else E(14) = 255
If B(135) = 1 Then Editor15.Line (0, 0)-(300, 300), vbBlack, BF: E(15) = 1 Else E(15) = 255
If B(136) = 1 Then Editor16.Line (0, 0)-(300, 300), vbBlack, BF: E(16) = 1 Else E(16) = 255
If B(257) = 1 Then Editor17.Line (0, 0)-(300, 300), vbBlack, BF: E(17) = 1 Else E(17) = 255
If B(258) = 1 Then Editor18.Line (0, 0)-(300, 300), vbBlack, BF: E(18) = 1 Else E(18) = 255
If B(259) = 1 Then Editor19.Line (0, 0)-(300, 300), vbBlack, BF: E(19) = 1 Else E(19) = 255
If B(260) = 1 Then Editor20.Line (0, 0)-(300, 300), vbBlack, BF: E(20) = 1 Else E(20) = 255
If B(261) = 1 Then Editor21.Line (0, 0)-(300, 300), vbBlack, BF: E(21) = 1 Else E(21) = 255
If B(262) = 1 Then Editor22.Line (0, 0)-(300, 300), vbBlack, BF: E(22) = 1 Else E(22) = 255
If B(263) = 1 Then Editor23.Line (0, 0)-(300, 300), vbBlack, BF: E(23) = 1 Else E(23) = 255
If B(264) = 1 Then Editor24.Line (0, 0)-(300, 300), vbBlack, BF: E(24) = 1 Else E(24) = 255
If B(385) = 1 Then Editor25.Line (0, 0)-(300, 300), vbBlack, BF: E(25) = 1 Else E(25) = 255
If B(386) = 1 Then Editor26.Line (0, 0)-(300, 300), vbBlack, BF: E(26) = 1 Else E(26) = 255
If B(387) = 1 Then Editor27.Line (0, 0)-(300, 300), vbBlack, BF: E(27) = 1 Else E(27) = 255
If B(388) = 1 Then Editor28.Line (0, 0)-(300, 300), vbBlack, BF: E(28) = 1 Else E(28) = 255
If B(389) = 1 Then Editor29.Line (0, 0)-(300, 300), vbBlack, BF: E(29) = 1 Else E(29) = 255
If B(390) = 1 Then Editor30.Line (0, 0)-(300, 300), vbBlack, BF: E(30) = 1 Else E(30) = 255
If B(391) = 1 Then Editor31.Line (0, 0)-(300, 300), vbBlack, BF: E(31) = 1 Else E(31) = 255
If B(392) = 1 Then Editor32.Line (0, 0)-(300, 300), vbBlack, BF: E(32) = 1 Else E(32) = 255
If B(513) = 1 Then Editor33.Line (0, 0)-(300, 300), vbBlack, BF: E(33) = 1 Else E(33) = 255
If B(514) = 1 Then Editor34.Line (0, 0)-(300, 300), vbBlack, BF: E(34) = 1 Else E(34) = 255
If B(515) = 1 Then Editor35.Line (0, 0)-(300, 300), vbBlack, BF: E(35) = 1 Else E(35) = 255
If B(516) = 1 Then Editor36.Line (0, 0)-(300, 300), vbBlack, BF: E(36) = 1 Else E(36) = 255
If B(517) = 1 Then Editor37.Line (0, 0)-(300, 300), vbBlack, BF: E(37) = 1 Else E(37) = 255
If B(518) = 1 Then Editor38.Line (0, 0)-(300, 300), vbBlack, BF: E(38) = 1 Else E(38) = 255
If B(519) = 1 Then Editor39.Line (0, 0)-(300, 300), vbBlack, BF: E(39) = 1 Else E(39) = 255
If B(520) = 1 Then Editor40.Line (0, 0)-(300, 300), vbBlack, BF: E(40) = 1 Else E(40) = 255
If B(641) = 1 Then Editor41.Line (0, 0)-(300, 300), vbBlack, BF: E(41) = 1 Else E(41) = 255
If B(642) = 1 Then Editor42.Line (0, 0)-(300, 300), vbBlack, BF: E(42) = 1 Else E(42) = 255
If B(643) = 1 Then Editor43.Line (0, 0)-(300, 300), vbBlack, BF: E(43) = 1 Else E(43) = 255
If B(644) = 1 Then Editor44.Line (0, 0)-(300, 300), vbBlack, BF: E(44) = 1 Else E(44) = 255
If B(645) = 1 Then Editor45.Line (0, 0)-(300, 300), vbBlack, BF: E(45) = 1 Else E(45) = 255
If B(646) = 1 Then Editor46.Line (0, 0)-(300, 300), vbBlack, BF: E(46) = 1 Else E(46) = 255
If B(647) = 1 Then Editor47.Line (0, 0)-(300, 300), vbBlack, BF: E(47) = 1 Else E(47) = 255
If B(648) = 1 Then Editor48.Line (0, 0)-(300, 300), vbBlack, BF: E(48) = 1 Else E(48) = 255
If B(769) = 1 Then Editor49.Line (0, 0)-(300, 300), vbBlack, BF: E(49) = 1 Else E(49) = 255
If B(770) = 1 Then Editor50.Line (0, 0)-(300, 300), vbBlack, BF: E(50) = 1 Else E(50) = 255
If B(771) = 1 Then Editor51.Line (0, 0)-(300, 300), vbBlack, BF: E(51) = 1 Else E(51) = 255
If B(772) = 1 Then Editor52.Line (0, 0)-(300, 300), vbBlack, BF: E(52) = 1 Else E(52) = 255
If B(773) = 1 Then Editor53.Line (0, 0)-(300, 300), vbBlack, BF: E(53) = 1 Else E(53) = 255
If B(774) = 1 Then Editor54.Line (0, 0)-(300, 300), vbBlack, BF: E(54) = 1 Else E(54) = 255
If B(775) = 1 Then Editor55.Line (0, 0)-(300, 300), vbBlack, BF: E(55) = 1 Else E(55) = 255
If B(776) = 1 Then Editor56.Line (0, 0)-(300, 300), vbBlack, BF: E(56) = 1 Else E(56) = 255
If B(897) = 1 Then Editor57.Line (0, 0)-(300, 300), vbBlack, BF: E(57) = 1 Else E(57) = 255
If B(898) = 1 Then Editor58.Line (0, 0)-(300, 300), vbBlack, BF: E(58) = 1 Else E(58) = 255
If B(899) = 1 Then Editor59.Line (0, 0)-(300, 300), vbBlack, BF: E(59) = 1 Else E(59) = 255
If B(900) = 1 Then Editor60.Line (0, 0)-(300, 300), vbBlack, BF: E(60) = 1 Else E(60) = 255
If B(901) = 1 Then Editor61.Line (0, 0)-(300, 300), vbBlack, BF: E(61) = 1 Else E(61) = 255
If B(902) = 1 Then Editor62.Line (0, 0)-(300, 300), vbBlack, BF: E(62) = 1 Else E(62) = 255
If B(903) = 1 Then Editor63.Line (0, 0)-(300, 300), vbBlack, BF: E(63) = 1 Else E(63) = 255
If B(904) = 1 Then Editor64.Line (0, 0)-(300, 300), vbBlack, BF: E(64) = 1 Else E(64) = 255
If B(1025) = 1 Then Editor65.Line (0, 0)-(300, 300), vbBlack, BF: E(65) = 1 Else E(65) = 255
If B(1026) = 1 Then Editor66.Line (0, 0)-(300, 300), vbBlack, BF: E(66) = 1 Else E(66) = 255
If B(1027) = 1 Then Editor67.Line (0, 0)-(300, 300), vbBlack, BF: E(67) = 1 Else E(67) = 255
If B(1028) = 1 Then Editor68.Line (0, 0)-(300, 300), vbBlack, BF: E(68) = 1 Else E(68) = 255
If B(1029) = 1 Then Editor69.Line (0, 0)-(300, 300), vbBlack, BF: E(69) = 1 Else E(69) = 255
If B(1030) = 1 Then Editor70.Line (0, 0)-(300, 300), vbBlack, BF: E(70) = 1 Else E(70) = 255
If B(1031) = 1 Then Editor71.Line (0, 0)-(300, 300), vbBlack, BF: E(71) = 1 Else E(71) = 255
If B(1032) = 1 Then Editor72.Line (0, 0)-(300, 300), vbBlack, BF: E(72) = 1 Else E(72) = 255
If B(1153) = 1 Then Editor73.Line (0, 0)-(300, 300), vbBlack, BF: E(73) = 1 Else E(73) = 255
If B(1154) = 1 Then Editor74.Line (0, 0)-(300, 300), vbBlack, BF: E(74) = 1 Else E(74) = 255
If B(1155) = 1 Then Editor75.Line (0, 0)-(300, 300), vbBlack, BF: E(75) = 1 Else E(75) = 255
If B(1156) = 1 Then Editor76.Line (0, 0)-(300, 300), vbBlack, BF: E(76) = 1 Else E(76) = 255
If B(1157) = 1 Then Editor77.Line (0, 0)-(300, 300), vbBlack, BF: E(77) = 1 Else E(77) = 255
If B(1158) = 1 Then Editor78.Line (0, 0)-(300, 300), vbBlack, BF: E(78) = 1 Else E(78) = 255
If B(1159) = 1 Then Editor79.Line (0, 0)-(300, 300), vbBlack, BF: E(79) = 1 Else E(79) = 255
If B(1160) = 1 Then Editor80.Line (0, 0)-(300, 300), vbBlack, BF: E(80) = 1 Else E(80) = 255
If B(1281) = 1 Then Editor81.Line (0, 0)-(300, 300), vbBlack, BF: E(81) = 1 Else E(81) = 255
If B(1282) = 1 Then Editor82.Line (0, 0)-(300, 300), vbBlack, BF: E(82) = 1 Else E(82) = 255
If B(1283) = 1 Then Editor83.Line (0, 0)-(300, 300), vbBlack, BF: E(83) = 1 Else E(83) = 255
If B(1284) = 1 Then Editor84.Line (0, 0)-(300, 300), vbBlack, BF: E(84) = 1 Else E(84) = 255
If B(1285) = 1 Then Editor85.Line (0, 0)-(300, 300), vbBlack, BF: E(85) = 1 Else E(85) = 255
If B(1286) = 1 Then Editor86.Line (0, 0)-(300, 300), vbBlack, BF: E(86) = 1 Else E(86) = 255
If B(1287) = 1 Then Editor87.Line (0, 0)-(300, 300), vbBlack, BF: E(87) = 1 Else E(87) = 255
If B(1288) = 1 Then Editor88.Line (0, 0)-(300, 300), vbBlack, BF: E(88) = 1 Else E(88) = 255
If B(1409) = 1 Then Editor89.Line (0, 0)-(300, 300), vbBlack, BF: E(89) = 1 Else E(89) = 255
If B(1410) = 1 Then Editor90.Line (0, 0)-(300, 300), vbBlack, BF: E(90) = 1 Else E(90) = 255
If B(1411) = 1 Then Editor91.Line (0, 0)-(300, 300), vbBlack, BF: E(91) = 1 Else E(91) = 255
If B(1412) = 1 Then Editor92.Line (0, 0)-(300, 300), vbBlack, BF: E(92) = 1 Else E(92) = 255
If B(1413) = 1 Then Editor93.Line (0, 0)-(300, 300), vbBlack, BF: E(93) = 1 Else E(93) = 255
If B(1414) = 1 Then Editor94.Line (0, 0)-(300, 300), vbBlack, BF: E(94) = 1 Else E(94) = 255
If B(1415) = 1 Then Editor95.Line (0, 0)-(300, 300), vbBlack, BF: E(95) = 1 Else E(95) = 255
If B(1416) = 1 Then Editor96.Line (0, 0)-(300, 300), vbBlack, BF: E(96) = 1 Else E(96) = 255
If B(1537) = 1 Then Editor97.Line (0, 0)-(300, 300), vbBlack, BF: E(97) = 1 Else E(97) = 255
If B(1538) = 1 Then Editor98.Line (0, 0)-(300, 300), vbBlack, BF: E(98) = 1 Else E(98) = 255
If B(1539) = 1 Then Editor99.Line (0, 0)-(300, 300), vbBlack, BF: E(99) = 1 Else E(99) = 255
If B(1540) = 1 Then Editor100.Line (0, 0)-(300, 300), vbBlack, BF: E(100) = 1 Else E(100) = 255
If B(1541) = 1 Then Editor101.Line (0, 0)-(300, 300), vbBlack, BF: E(101) = 1 Else E(101) = 255
If B(1542) = 1 Then Editor102.Line (0, 0)-(300, 300), vbBlack, BF: E(102) = 1 Else E(102) = 255
If B(1543) = 1 Then Editor103.Line (0, 0)-(300, 300), vbBlack, BF: E(103) = 1 Else E(103) = 255
If B(1544) = 1 Then Editor104.Line (0, 0)-(300, 300), vbBlack, BF: E(104) = 1 Else E(104) = 255
If B(1665) = 1 Then Editor105.Line (0, 0)-(300, 300), vbBlack, BF: E(105) = 1 Else E(105) = 255
If B(1666) = 1 Then Editor106.Line (0, 0)-(300, 300), vbBlack, BF: E(106) = 1 Else E(106) = 255
If B(1667) = 1 Then Editor107.Line (0, 0)-(300, 300), vbBlack, BF: E(107) = 1 Else E(107) = 255
If B(1668) = 1 Then Editor108.Line (0, 0)-(300, 300), vbBlack, BF: E(108) = 1 Else E(108) = 255
If B(1669) = 1 Then Editor109.Line (0, 0)-(300, 300), vbBlack, BF: E(109) = 1 Else E(109) = 255
If B(1670) = 1 Then Editor110.Line (0, 0)-(300, 300), vbBlack, BF: E(110) = 1 Else E(110) = 255
If B(1671) = 1 Then Editor111.Line (0, 0)-(300, 300), vbBlack, BF: E(111) = 1 Else E(111) = 255
If B(1672) = 1 Then Editor112.Line (0, 0)-(300, 300), vbBlack, BF: E(112) = 1 Else E(112) = 255
If B(1793) = 1 Then Editor113.Line (0, 0)-(300, 300), vbBlack, BF: E(113) = 1 Else E(113) = 255
If B(1794) = 1 Then Editor114.Line (0, 0)-(300, 300), vbBlack, BF: E(114) = 1 Else E(114) = 255
If B(1795) = 1 Then Editor115.Line (0, 0)-(300, 300), vbBlack, BF: E(115) = 1 Else E(115) = 255
If B(1796) = 1 Then Editor116.Line (0, 0)-(300, 300), vbBlack, BF: E(116) = 1 Else E(116) = 255
If B(1797) = 1 Then Editor117.Line (0, 0)-(300, 300), vbBlack, BF: E(117) = 1 Else E(117) = 255
If B(1798) = 1 Then Editor118.Line (0, 0)-(300, 300), vbBlack, BF: E(118) = 1 Else E(118) = 255
If B(1799) = 1 Then Editor119.Line (0, 0)-(300, 300), vbBlack, BF: E(119) = 1 Else E(119) = 255
If B(1800) = 1 Then Editor120.Line (0, 0)-(300, 300), vbBlack, BF: E(120) = 1 Else E(120) = 255
If B(1921) = 1 Then Editor121.Line (0, 0)-(300, 300), vbBlack, BF: E(121) = 1 Else E(121) = 255
If B(1922) = 1 Then Editor122.Line (0, 0)-(300, 300), vbBlack, BF: E(122) = 1 Else E(122) = 255
If B(1923) = 1 Then Editor123.Line (0, 0)-(300, 300), vbBlack, BF: E(123) = 1 Else E(123) = 255
If B(1924) = 1 Then Editor124.Line (0, 0)-(300, 300), vbBlack, BF: E(124) = 1 Else E(124) = 255
If B(1925) = 1 Then Editor125.Line (0, 0)-(300, 300), vbBlack, BF: E(125) = 1 Else E(125) = 255
If B(1926) = 1 Then Editor126.Line (0, 0)-(300, 300), vbBlack, BF: E(126) = 1 Else E(126) = 255
If B(1927) = 1 Then Editor127.Line (0, 0)-(300, 300), vbBlack, BF: E(127) = 1 Else E(127) = 255
If B(1928) = 1 Then Editor128.Line (0, 0)-(300, 300), vbBlack, BF: E(128) = 1 Else E(128) = 255
