如果要实现这个功能建议你用RichTextBox 他可以实现你的功能
Private Sub Form_Load()
RichTextBox1.Text = "今天你喝了吗?"
RichTextBox1.SelStart = 2
RichTextBox1.SelLength = 1
RichTextBox1.SelBold = True
RichTextBox1.SelStart = 0
RichTextBox1.SelLength = 2
RichTextBox1.SelColor = vbRed
TextBox1.TabIndex = 0
End Sub