هنا

[spyman]

السلام عليكم
هذا الموضوع استكمال لدورة الاكواد الشاملة


'61-رسم ايكون على الفورم

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim G As Graphics = Me.CreateGraphics
        G.DrawIcon(Me.Icon, 125, 99)

    End Sub

End Class

'61-رسم ايكون على الفورم 

'62- رسم نصوص على الفورم

Public Class Form1

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

        Dim myBrush As New SolidBrush(Color.SeaGreen)
        Dim f As Font = New Font(Font.Bold, 20)
        Me.CreateGraphics.DrawString _
        ("لا إله إلا الله", f, myBrush, 89, 99)

    End Sub
End Class

'62- رسم نصوص على الفورم