Command Buton tıklandıktan sonra

[vivident]

Merhaba

Userform içinde resim var. Resmin üzerinde ise transparan şekilde duran Commandbuton'lar

Commandbutonlar'a tıklandığında transparan comandbuton, opaque şekline dönüşüyor ve bir anlık backcolor siyah olup, tekrar transparana dönmesini istiyorum. Aşağıda kod ile bu işlemi yapıyorum. Lakin seri şekilde commanbutonlara tıklayınca arada backcolor geç kalıyor. Başka bir yolu varmı veya kod geliştirilebilinir mi ? Dosyam ektedir

Private Sub CommandButton1_Click()
For I = 0 To 1
DoEvents
CommandButton1.BackStyle = fmBackStyleOpaque
CommandButton1.BackColor = &H80000007

For X = 0 To 100: DoEvents: Next X
CommandButton1.BackStyle = fmBackStyleTransparent
Next
End Sub

 

[vivident]

Arkadaşlar command butonunun ;
SpecialEffect özelliği neden yok ? Ben commandbutonu SpecialEffectFlat kullanmak istiyorum. Lakin orjinali SpecialEffectRaised

Nasıl yapabiliriz