WannaCry is just the start. Read how Liquid Web is protecting itself and its customers against new threats.
Private Sub CopyToDir(ByVal dimW As Integer, ByVal dimH As Integer, ByVal destn As String) Dim sourceBitmap As New Bitmap(currentImage) Dim destBitmap As New Bitmap(dimW, dimH) destBitmap.SetResolution(72, 72) Dim destGraphic As Graphics = Graphics.FromImage(destBitmap) destGraphic.DrawImage(sourceBitmap, 0, 0, _ destBitmap.Width + 1, destBitmap.Height + 1) destBitmap.Save(destn, ImageFormat.Jpeg) End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.