koşullu biçimlendirme kullanmadan koşul verme

[hedefkaya]

selam

formun açılışında
kod ile

A metin kutusundaki sayı 0 dan KÜÇÜK ise A1 metin kutusu kırmızı olsun

0 dan BÜYÜK ise yeşil görünsün

bunu yapabilirmiyiz acaba

fakat koşullu biçimleme den değil kod olarak yapmak istiyorum

 

[BKCAN]

iyi çalışmalar

Private Sub Form_Open(Cancel As Integer)
If a < 0 Then
a1.BackColor = vbRed
Else
a1.BackColor = vbGreen
End If
End Sub

 

[assenucler]

Teşekkürler.