Drawing Black Text

    ' Width and height of the text. In fact you can obtain actual
    ' width/height for the text using MeasureTextWidth/MeasureTextHeight
    ' methods, but it is omitted for brevity.
    Dim intWidth As Long
    Dim intHeight As Long
    intWidth = 200
    intHeight = 100
    
    ' Our aim is to get a grayscale image where min values = background
    ' max values = foreground (text). To do it, we create empty RGB image
    ' filled with black color (min values) and draw our text with white
    ' color.
    Dim objTextImage As New Bitmap
    objTextImage.CreateNew intWidth, intHeight, Format24bppRgb, ColorBlack
    objTextImage.Graphics.TextFormat.FontColor = ColorWhite
    objTextImage.Graphics.TextFormat.FontSize = 30
    objTextImage.Graphics.DrawText "Text", 0, 0
    
    ' Now we extract the first channel (actually we can take any of three channels,
    ' because black = min and white = max in all of them).
    Dim objChannel As Bitmap
    Set objChannel = objTextImage.Channels.Extract(0)
    
    ' Now we can assemble CMYK image containing the text. To do it,
    ' we create empty ACMYK image which is initialized with zeros and
    ' replace black and alpha channels with the channel extracted above.
    ' This way we will get (0, 0, 0, 255) CMYK quad in the text pixels and
    ' it will be opaque only at text pixels. Background pixels are completely
    ' transparent (0, 0, 0, 0) quads.
    Dim objCmykText As New Bitmap
    objCmykText.CreateNew intWidth, intHeight, Format40bppAcmyk, 0
    
    ' Put black channel
    objCmykText.Channels.Replace objChannel, 0
    ' Put alpha channel
    objCmykText.Channels.Replace objBlackChannel, 4
    
    
    ' Now we can put this ACMYK image at arbitrary CMYK image.
    ' For example we will load it from file.
    Dim objBackgroundImage As New Bitmap
    objBackgroundImage.LoadFromFile "D:\[Test Files]\Pictures\cmyk.jpg"
    
    ' Specify position of the text here. Do not forget to use alpha blending.
    Dim x As Long
    Dim y As Long
    x = 30
    y = 50
    objCmykText.DrawOnBitmap objBackgroundImage, x, y, CombineMode:=CombineModeAlpha
    
    ' Save to file.
    objBackgroundImage.SaveToFile "d:\01.tif"