私人？Sub？Form_Load()
文本2。文字？=?“妳好嗎？”
文本2。FontSize？=?20
文本2。FontBold？=?真實的
結束？潛水艇
私人？Sub？Text1_Change(索引？作為？整數)
暗淡？AA？作為？整數，？BB？作為？線
AA？=?索引
如果？AA？=?0?然後呢？BB？=?“紅色”
如果？AA？=?1?然後呢？BB？=?“綠色”
如果？AA？=?2?然後呢？BB？=?“藍色”
如果？IsNumeric(Text1(AA))。正文)？=?假的？然後
MsgBox？“妳輸入了”？& amp？BB？& amp？"不是數字，所有顏色的值必須是0到255之間的正整數！"
Text1(AA)。文字？=?""
Text1(AA)。SetFocus
退出？潛水艇
結束？如果
如果？Val(Text1(AA))。正文)？& lt？0?還是？Val(Text1(AA))。正文)？& gt？255?然後
MsgBox？“妳輸入了”？& amp？BB？& amp？“號碼不正確。不能小於0，也不能大於255！"
Text1(AA)。文字？=?""
Text1(AA)。SetFocus
退出？潛水艇
結束？如果
如果？Val(Text1(0))。正文)？& gt=?0?然後呢。Val(Text1(0))。正文)？& lt=?255?然後呢。Val(Text1(1))。正文)？& gt=?0?然後呢。Val(Text1(1))。正文)？& lt=?255?然後呢。Val(Text1(2))。正文)？& gt=?0?然後呢。Val(Text1(2))。正文)？& lt=?255?然後
文本2。前景色？=?RGB(Val(Text1(0))。正文)，？Val(Text1(1))。正文)，？Val(Text1(2))。正文))
結束？如果
結束？潛水艇