[Basil Abdallah]

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   Dim NF As New Font("Impact", 36, FontStyle.Italic)
   Dim NB As New SolidBrush(Color.FromArgb(64, 192, 255, 255))
   NB.Color = Color.FromArgb(128, 0, 0, 0)
   PictureBox1.CreateGraphics.DrawString(TextBox1.Text, NF, NB, 15, 135)
End Sub