sub_deneme formunuzu sürekli form olarak ayarlayın ve formun özelliklerinden boyandığında olay yordamına;

Private Sub Detail_Paint()

Select Case [Status]



  Case "K"

    [Status].ForeColor = vbWhite

    [Status].BackColor = vbRed

  Case "Y"

    [Status].ForeColor = vbBlack

    [Status].BackColor = vbGreen

  Case "M"

    [Status].ForeColor = vbWhite

    [Status].BackColor = vbBlue

  Case "P"

    [Status].ForeColor = vbBlack

    [Status].BackColor = vbMagenta

  Case "S"

    [Status].ForeColor = vbBlack

    [Status].BackColor = vbYellow



End Select



End Sub

yazarak deneyin. Umarım istediğiniz sonucu alırsınız.