'▼描画実行 Dim DestImage As New Bitmap(NewWidth, NewHeight) Dim g As Graphics = Graphics.FromImage(DestImage) Dim M As New Drawing2D.Matrix Dim MagnifyingPowerX As Single = SourceClone.VerticalResolution / 96 Dim MagnifyingPowerY As Single = SourceClone.HorizontalResolution / 96 '背景色の描画 g.FillRectangle(New SolidBrush(BackColor), DestImage.GetBounds(GraphicsUnit.Pixel)) '回転と平行移動 M.Translate(OffsetX, 0) M.Rotate(Degree) M.Scale(MagnifyingPowerX, MagnifyingPowerY) g.Transform = M