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