طلب كود حفظ الصورة بإسم

تفضل /

Private Sub Form_Click()
   ' Declare variables.
   Dim CX, CY, Limit, Radius   As Integer, Msg As String
   ScaleMode = vbPixels   ' Set scale to pixels.
   AutoRedraw = True ' Turn on AutoRedraw.
   Width = Height   ' Change width to match height.
   CX = ScaleWidth / 2   ' Set X position.
   CY = ScaleHeight / 2   ' Set Y position.
   Limit = CX   ' Limit size of circles.
   For Radius = 0 To Limit   ' Set radius.
      Circle (CX, CY), Radius, RGB(Rnd * 255, Rnd * 255, Rnd * 255)
      DoEvents   ' Yield for other processing.
   Next Radius
   Msg = "Choose OK to save the graphics from this form "
   Msg = Msg & "to a bitmap file."
   MsgBox Msg
   SavePicture Image, "c:TEST.BMP"   ' Save picture to file.

End Sub

تحياتي

مشكورر جدا أخي لأني كنت محتاج لمثل هذا الكود لأني الآن أعمل في برنامج يحوي على أكثر من 700 أيقونة لبرامجك

مشكور مرة أخرى

واتلسلام عليكم