Convertire un file immagine Bitmap in Gif

Questa procedura VB.net serve per convertire un file immagine Bitmap in Gif.
Ritorna un nuovo file con lo stesso nome del file BMP passato come argomento ma in formato GIF.

Codice

Private Sub BmpToGif(ByVal FileBMP As String)

      Dim objBmp As New Bitmap(FileBMP)
      Dim FileGIF As String = Strings.Left(FileBMP, Len(FileBMP) - 4) & ".gif"
      objBmp.Save(FileGIF, System.Drawing.Imaging.ImageFormat.Gif)
      objBmp.Dispose()

End Sub