Private Sub Form_Current()

Select Case (Me.toplam_baskı)

Case 15000

Me.toplam_baskı.BackColor = 255

Case 30000

Me.toplam_baskı.BackColor = 255

Case 60000

Me.toplam_baskı.BackColor = 255

Case Else

Me.toplam_baskı.BackColor = 122255

End Select

End Sub

buradan yola çıkabilirsiniz. Şu an acelem var, devamını sonra görüşürüz.