Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class DrawStringWithMaroon
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
public class Form1
Inherits System.Windows.Forms.Form
Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
Dim fntText = New Font(New FontFamily("Times New Roman"), 48, FontStyle.Italic)
e.Graphics.DrawString("Hello there!", fntText, Brushes.Maroon, 10, 100)
End Sub
Public Sub New()
Me.ClientSize = New System.Drawing.Size(292, 273)
End Sub
End Class
|