Подписать оси графика (рисование текста)

Public Sub DrawString ( _
    s As String, _
    font As Font, _
    brush As Brush, _
    point As PointF _
)
Язык Visual Basic (Использование)
Dim instance As Graphics
Dim s As String
Dim font As Font
Dim brush As Brush
Dim point As PointF
 
instance.DrawString(s, font, brush, point)

Public Sub DrawStringPointF(ByVal e As PaintEventArgs)
 
    ' Create string to draw.
    Dim drawString As [String] = "Sample Text"
 
    ' Create font and brush.
    Dim drawFont As New Font("Arial", 16)
    Dim drawBrush As New SolidBrush(Color.Black)
 
    ' Create point for upper-left corner of drawing.
    Dim drawPoint As New PointF(150.0F, 150.0F)
 
    ' Draw string to screen.
    e.Graphics.DrawString(drawString, drawFont, drawBrush, drawPoint)
End Sub

Public Sub DrawStringPointF(ByVal e As PaintEventArgs)
 
        ' Create string to draw.
        Dim drawString As [String] = "Sample Text"
 
        ' Create font and brush.
        Dim drawFont As New Font("Arial", 16)
        Dim drawBrush As New SolidBrush(Color.Black)
 
        ' Create point for upper-left corner of drawing.
        Dim drawPoint As New PointF(150.0F, 150.0F)
 
        ' Draw string to screen.
        e.Graphics.DrawString(drawString, drawFont, drawBrush, drawPoint)
    End Sub
 
   
    Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
        Call DrawStringPointF(e)
    End Sub