[Aly El-Haddad]

silverlight كتب :

كود :

Imports System.Drawing.Drawing2D

Public Class Form1

    Private Sub Form1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint

        ' تعريف الصورة
        Dim bmp As New Bitmap(150, 150)

        ' تعريف متغيرات للجرافكس
        Using gr As Graphics = Graphics.FromImage(bmp)

            Dim rect As Rectangle = New Rectangle(0, 0, 150, 150)
            Dim lgb As New LinearGradientBrush(rect, Color.Blue, Color.Azure, 90)
            ' إرسم شيئا علي الصورة
            gr.FillRectangle(lgb, rect)
        End Using

        'إرسم الصورة علي سطح الفورم
        Using g As Graphics = Me.CreateGraphics
            g.DrawImage(bmp, 10, 10)
        End Using

    End Sub

End Class

شكراً لك أخي، و لكل من حاول مساعدتي