Dim Font4 As New Font("Arial", 10)
    Dim Font3 As New Font("Arial", 12, FontStyle.Bold)

    Private Sub PictureBox1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint


        'Posizione iniziale X da cui iniziare a scrivere
        Dim x As Single = 50
        Dim y As Single = 20
        Dim str1 As String = "Oggi il"
        Dim str2 As String = "sole"
        Dim str3 As String = "splende"
        e.Graphics.DrawString(str1, Font4, Brushes.Black, x, y)
        Dim sizeStr1 As SizeF = e.Graphics.MeasureString(str1, Font4)
        Dim sizeStr2 As SizeF = e.Graphics.MeasureString(str2, Font3)
        Dim sizeStr3 As SizeF = e.Graphics.MeasureString(str3, Font4)
        x += sizeStr1.Width 'Si sposta verso destra
        Dim correzioneY As Single = ((sizeStr2.Height - sizeStr1.Height) / 2)
        'Passaggio da carattere con font normale a font in grassetto
        y -= correzioneY
        e.Graphics.DrawString(str2, Font3, Brushes.Black, x, y)
        'Passaggio da carattere con font grassetto a font in grassetto
        x += sizeStr2.Width 'Si sposta verso destra
        e.Graphics.DrawString(str3, Font4, Brushes.Black, x, y + correzioneY)

    End Sub