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.
sub_deneme formunuzu sürekli form olarak ayarlayın ve formun özelliklerinden boyandığında olay yordamına;