Public Sub Draw(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Dim fnt As New Font("MS UI Gothic", 20) e.Graphics.TranslateTransform(19, 143) e.Graphics.ScaleTransform(2, 1) e.Graphics.RotateTransform(-30) '文字列を位置(19,143)白で表示 e.Graphics.DrawString(word, fnt, Brushes.White, 0, 0) 'リソースを解放する() fnt.Dispose() End Sub