'Add StringUtils Library
Dim signatureCaptured() As Byte
signatureCaptured = SignatureCapture.GetAsByteArray2(SD, 90, "PNG")
Dim MyEncodedImage as String
MyEncodedImage = su.EncodeBase64(signatureCaptured) '' Reference String utils
'Save MyEncodedImage
'Add the following code to your signaturecapture class
Sub GetAsByteArray2(objSignatureData As SignatureData, quality As Int, format As String ) As Byte()
Dim out As OutputStream
out.InitializeToBytesArray(0)
objSignatureData.Canvas.Bitmap.WriteToStream(out,quality,format)
out.Close
Return out.ToBytesArray()
End Sub