Dim w, h As Integer
        Dim gr As Graphics = Me.PictureBox1.CreateGraphics
        Dim s As String = "hello world!"
        Dim f As Font = New Font(Me.Font.Name, 20)
        Dim b As Brush = Brushes.Red
        Dim x, y As Integer
        Dim sf As SizeF
        sf = gr.MeasureString(s, f)
        w = sf.Width : h = sf.Height
        x = ((Me.PictureBox1.Width - w) / 2)
        y = ((Me.PictureBox1.Height - h) / 2)
        gr.DrawString(s, f, b, x, y)