Visual Basic

Dim InitialImage As Bitmap = New Bitmap(OpenLocation)
Dim SetImage As Bitmap
SetImage = New Bitmap(InitialImage, New Size(WidthInt, HeightInt))
SetImage.Save(PathName, System.Drawing.Imaging.ImageFormat.Jpeg)

' Step 1)
My.Computer.FileSystem.RenameFile("TestImage.jpg, _
   "TestImage.jpg.working")
' Step 2)
Dim bmpSS As Bitmap
Dim intBW As Integer   ' thumbnail width
Dim intBH As Integer   ' thumbnail height
Dim bmp As Bitmap = New Bitmap("TestImage.jpg.working")
bmpSS = New Bitmap(250, CInt(bmp.Height / (bmp.Width / 250)), _
   Imaging.PixelFormat.Format32bppArgb)
intBW = bmpSS.Width
intBH = bmpSS.Height
Dim g As Graphics = Graphics.FromImage(bmpSS)
g.DrawImage(Bmp, 0, 0, intBW, intBH)
' Step 3)
bmpSS.Save("C:\Temp\TestImage_250.jpg")
g = Nothing
bmp = Nothing
bmpSS = Nothing
' Step 4)
My.Computer.FileSystem.RenameFile("TestImage.jpg.working", _
   "TestImage.jpg")

DataSet ds = TextToDataSet.Convert(
  "c:\test.txt", "MyNewTable", "\t");

DataSet ds = TextToDataSet.Convert(
  "c:\test.txt", "MyNewTable", "\t");

For Each timerToStop As Windows.Forms.Timer In emailTimerArray<br />
                If (timerToStop.Tag = callID) Then 'Stop this timer<br />
                    timerToStop.Stop()<br />
                    timerToStop.Enabled = False<br />
                    emailTimerArray.Remove(timerToStop) 'Error<br />
                End If<br />
            Next

<br />
Dim emailTimerArray As New List(Of Windows.Forms.Timer)

emailTimer = New System.Windows.Forms.Timer<br />
            emailTimer.Interval = 25000<br />
            emailTimer.Enabled = True<br />
            emailTimer.Tag = e.CallID<br />
            emailTimerArray.Add(emailTimer)