If (Application.IsTrial) {
    DoTrial();
} else {
    DoFullLicensed();
}

Public Function GetTransparentImage(InImage As Image, Transparency As Double) As Image
            Dim OutImage As New Bitmap(InImage.Width, InImage.Height)
            Using OutImageGraphics As Graphics = Graphics.FromImage(OutImage)
                Dim TransparencyMatrix As New ColorMatrix()
                TransparencyMatrix.Matrix33 = Transparency
                Dim OutImageAttributes As New ImageAttributes()
                OutImageAttributes.SetColorMatrix(TransparencyMatrix, ColorMatrixFlag.Default, ColorAdjustType.Bitmap)
                OutImageGraphics.DrawImage(OutImage, New Rectangle(0, 0, OutImage.Width, OutImage.Height), 0, 0, InImage.Width, InImage.Height, GraphicsUnit.Pixel, OutImageAttributes)
            End Using
            Return OutImage
        End Function