Convertire un file immagine Bitmap in Png

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

Codice

Private Sub BmpToPng(ByVal FileBMP As String)

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

End Sub