Kod:
Private Sub TabCtl6_Change()
Dim frm As Form
Select Case TabCtl6
Case 0
Set frm = Screen.ActiveForm
frm.Section(acDetail).BackColor = 0
Set frm = Nothing
Case 1
Set frm = Screen.ActiveForm
frm.Section(acDetail).BackColor = 255
Set frm = Nothing
Case 2
Set frm = Screen.ActiveForm
frm.Section(acDetail).BackColor = 65280
Set frm = Nothing
Case 3
Set frm = Screen.ActiveForm
frm.Section(acDetail).BackColor = 65535
Set frm = Nothing
End Select
End Sub