Private Sub CommandButton1_Click()
Label1.Caption = "商訓夜中學高三甲班"
Label1.BackColor = &HFF80FF
Label1.ForeColor = &HFF0000
UserForm1.BackColor = &HFFFFC0


End Sub

Private Sub CommandButton2_Click()
Label1.Caption = "商訓夜中學高三乙班"
Label1.BackColor = &HC0FFC0
Label1.ForeColor = &HFF00FF
UserForm1.BackColor = &HC0C0FF

End Sub

Private Sub CommandButton3_Click()
Label1.Caption = "商訓夜中學高三丙班"
Label1.BackColor = &HFFFF80
Label1.ForeColor = &HC000&
UserForm1.BackColor = &HFFC0FF

End Sub

Private Sub CommandButton4_Click()
Unload UserForm1
End
End Sub

Private Sub UserForm_Click()

End Sub

    Source: geocities.com/hk/bokuwa_dikikodesu/school-mark

               ( geocities.com/hk/bokuwa_dikikodesu)                   ( geocities.com/hk)