Private Sub Command1_Click()Text1.ForeColor = vbRedEnd SubPrivate Sub Command2_Click()Text1.ForeColor = vbGreenEnd SubPrivate Sub Command3_Click()Text1.ForeColor = vbBlueEnd SubPrivate Sub Command4_Click()Unload MeEnd Sub 是这样的吗?