The DirectDrawSurface7.SetFont specifies the font to be used in DirectDrawSurface7.DrawText.
object.SetFont(font As IFont)
If the method fails, it raises an error, and Err.Number is set.