黑色= 1
白色= 2
黃色= 3
紅色= 4
綠色= 5
藍色= 6
結束枚舉
私有子命令1_Click（）
Dim My_Color As Color用變量My _ Color作為顏色定義枚舉類型。
Dim Back_Color As Color用變量Back _ Color作為顏色定義枚舉類型。
“我的顏色=綠色”為我的顏色賦值。
“Back_Color = Black”為Back_Color賦值。
text 1 . text = My_Color+Back_Color‘在文本框中顯示My _ Color+Back _ Color的值。
末端接頭
具體可以參考。
裏面有圖，程序會看得更清楚。