pic.ScaleMode = 4
pic.Picture = LoadPicture()
pic.ForeColor = vbBlack
pic.CurrentX = 10: pic.CurrentY = 3: pic.Print "モナー"
pic.CurrentX = 10: pic.CurrentY = 4: pic.Print "ギコ"
pic.CurrentX = 10: pic.CurrentY = 5: pic.Print "しぃー"
pic.CurrentX = 10: pic.CurrentY = 6: pic.Print "8頭身"

などの場合に"モナー"だけ赤く表示させるにはどうしたら良いのでしょうか?
何方かご教授お願いします。