不支持。
这是因为鼠标拖动选择一段文字是没问题的，但这一段的颜色处理比较麻烦，代码要复杂很多。只有改变选中的文字色和字体最简单。

从天天学习的发贴中得到启发：把被选中文本的前景色及其背景色同时改变，效果更好。只要作4处修改就行了：

1.增加一个全局变量：
  Dim CramColor As Long   '填充色

2.在Form_Load过程中增加一句：
  CramColor = Pic.BackColor

3.把PrintWord过程的2个Pic.Line语句中的颜色均改为CramColor（原来是Pic.BackColor）

4.Transform过程修改如下：
Dim C As Long
If BjAlter Then C = Pic.ForeColor: Pic.ForeColor = vbWhite: CramColor = vbBlue
CurrentPos = zStart: ComputeRange
For i = zStart To zEnd: PrintWord: Next
If BjAlter Then Pic.ForeColor = C: CramColor = Pic.BackColor: BjAlter = False

如此一来，就不须改变被选中字符的字体了

似乎不能使用退格键？删除键呢？
--------------------------

sorry,我看帮助知道是PageUp代表退格,PageDown代表删除了.不过我觉得原来的DEL和BACKSPACE键也可以保留以照顾习惯吧.另外我觉得对我的电脑(PIII733)来说这个程序的输入处理速度比较慢是个最大的问题了,每输入一个字,CPU占用时接近50%.其它功能上还是挺完整的,操作方便性改进一下,速度要达到实用化就完美了.

按大喊三的要求可作如下修改：

把Pic_KeyDown过程修改一下：

      Case 8, 33, 34, 46
        If zOpt = 3 Then 剪切_Click: Exit Sub
        If KeyCode = 34 Or KeyCode = 46 Then If CurrentPos > Subscript Then Exit Sub 
        If KeyCode = 33 Or KeyCode = 8 Then
      ......

另外，我在12楼提出的方案还要修改一处：
在“背景颜色_Click”过程的 Pic.BackColor = cc.rgbResult 语句后面要增加一句：
CramColor = Pic.BackColor

正如大喊三所说的，以后还要优化，提高速度

哦,补充一下最近试用感受.在记事本输入区域的左边,也就是属于比较末端的列,响应非常快.没有延迟现象.在右边的区域即开始列输入则象上面我说的有点慢.不知这是为什么.

谢谢试用。
因为打字是从右至左的，打字时要把当前位置以左的字全部重新显示一遍，所以越右速度就越慢些

非常好的源码，对编程来说简直贡献非凡。