label ile ilgili

[xxihsidxx]

merhaba
benim sorum labellarla ilgili.
label1.font.bold=true
label2.font.bold=true
bu şekilde 7 , 8 adet label'ı sıralamadan tek bir komutla yapmanın imkanı yok mu?
şimdiden teşekkürler.

 

[Haluk]

Private Sub UserForm_Initialize()
    Dim MyCtrl As Control
    For Each MyCtrl In Me.Controls
        If TypeName(MyCtrl) = "Label" Then MyCtrl.Font.Bold = True
    Next
End Sub

 

[xxihsidxx]

çok sağol haluk.Beni bir dertten kurtardın.Ama sorularımla başını ağrıtırım,çünkü ben bu işe yeni başladım.