Private Function GetEncoderInfo(ByVal mimeType As String) As ImageCodecInfo
		Dim encoders() As ImageCodecInfo = ImageCodecInfo.GetImageEncoders()
		For j As Integer = 0 To encoders.Length - 1
			If (encoders(j).MimeType = mimeType) Then
				Return encoders(j)
			End If
		Next
		Return Nothing
	End Function
 
 
	Private Sub SaveBitmap(ByVal bm As Bitmap, ByVal filename As String)
		Dim eps As New EncoderParameters(1)
		Dim l As Long = CLng(EncoderValue.CompressionLZW)
		eps.Param(0) = New EncoderParameter(Encoder.Compression, l)
		Dim ici As ImageCodecInfo = GetEncoderInfo("image/tiff")
		bm.Save(filename, ici, eps)
	End Sub