(17/07/2023, 17:17)truhi yazdı: Merhaba,

Formda 20 tane metin kutusu mevcut, bu metin kutusununa tıkladığımız zaman aşağıdaki kodun çalışması için;
her bir metin kutusuna kod yazmadan Excel' de olduğu gibi class oluşturarak çözebilir miyiz?

Kod:

Private Sub m1_1_Enter()

If m1_1.BackColor = -2147483643 Then
    m1_1.BackColor = 0
ElseIf m1_1.BackColor = 0 Then
    m1_1.BackColor = -2147483643
End If

End Sub

teşekkürler,
iyi Çalışmalar.

Merhaba,
Class oluşturmayla ilgili ekli dosyadaki bir kod buldum ama;

teşekkürler, iyi çalışmalar.