Focus u nereye koyabilriz ?

Bende seçeneği kullandım Tasarımda da görünmüyor.

Private Sub Form_Timer()
Me.Komut1.Visible = False
End Sub

Private Sub Komut1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
SendKeys "{TAB}"
Me.TimerInterval = 1
End Sub

süper kötü bir yöntem ama çalışır.

Anaaa. Her seferinde o kadar kod yazana kadar, denetim koyup odaklanmak daha mantıklı valla.
Şaka bir yana bir modül yapılıp, gizlenecek olan denetimlerde modül çağrılarak bu sorun aşılabilir. Ancak ben bu kodları çalıştıramadım. Sanırım benim yeteneksizliğim.

Doğru yöntem her zaman en kolay yöntemdir. Denetim koymak en kolayı olduğuna göre...
Modul de yapsanız sorun aynı. Control'un tüm özellikkleri (lost focus da dahil) hala setfocus'ken çalışır.
Mehmet hoca benim süper kötü dediğim yöntem bir alternatif amacıyla yazıldı. Tab gönderiliyor artık tab nereye gidiyorsa... denetim özgür kalıyor. 1 ms sonra da timer devreye girip işi tamamlıyor. Çalışan örnek ama süper kötü bir örnek....

Yani kısa bir süre için, denetim üzerindeki odaklanma tab üzerinde toğunlaştırılarak 1ms kazanılıyor ve bu arada da visible eylemi tamamlanıyor.

Benim modülden kastım yanlış anlaşılmış sanırım. Bütün bu kodları modüle yazarak (tabii eğer bir çok defa kullanılacaksa) kalıp oluşturmak iyi olur demek istemiştim. Her seferinde küçük bir nesne formun üzerine konumlanacağına, ona denetim setfocus yapılacağı yerde, modüldeki kodların çağrılması daha mantıklı olur demiştim. Yani modül, sizin kodlarınız için söylendi. Sanırım siz yanlış anladınız.

Değerli Hocalar;
Çok yararlandığım bilgiler vermişsiniz. Çok teşekkür ederim.