Butonların isimlerini Komut2011, Komut2012, Komut2013 şeklinde yazınız. Formu tasarım görünümünde açıp tüm butonların "Görünür" ayarını "Hayır" olarak değiştiriniz. Ardından formun geçerli olduğunda olayına aşağıdaki kodu yazınız.
Dim ctrl As Control
Dim t As String
For Each ctrl In Me.Controls
t = Format(Date, "yyyy")
If Format(Date, "yyyy") = t Then
Controls("Komut" & t).Visible = True
End If
Next