السلام عليكم
هذا الموضوع استكمال لدورة الاكواد الشاملة
هذا الموضوع الاخير في دورة التعامل مع الفورم و غدا ابدأ دورة جديدة التعامل مع الادوات 
'63- رسم نصوص على الفورم بطريقة اخرى
كود PHP:
Public Class Form1
    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        Dim drawFormat As New StringFormat()
        Using formGraphics As Graphics = Me.CreateGraphics(), _
        drawFont As New System.Drawing.Font("Arial", 16), _
        drawBrush As New SolidBrush(Color.Red)
            formGraphics.DrawString _
        ("انا منذ فجر الارض البس خوذتي و وصية الفقراء فوق نطاقي", drawFont, _
        drawBrush, 25.0, 50.0, drawFormat)
        End Using
    End Sub
End Class
'63- رسم نصوص على الفورم بطريقة اخرى 
 
'64- رسم نصوص على الفورم بشكل عمودي
كود PHP:
Public Class Form1
    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        Dim drawFormat As New StringFormat()
        Using formGraphics As Graphics = Me.CreateGraphics(), _
        drawFont As New System.Drawing.Font("Arial", 16), _
        drawBrush As New SolidBrush(Color.Red)
            drawFormat.FormatFlags = _
            StringFormatFlags.DirectionVertical
            formGraphics.DrawString _
        ("لغات البرمجة", drawFont, drawBrush, 150.0, 50.0, drawFormat)
        End Using
    End Sub
End Class
'64- رسم نصوص على الفورم بشكل عمودي