Tam Ekran ve Minimize

[captan]

UserForm4 de Tam Ekran ve Minimize olayını kullanıyorum.

Form açılınca normal boyutta açılıyor ve Label3, Label4, Label5, Label6 Label7 formun en altında oluyor. Ama tam ekran durumuna getirildiğinde Label3, Label4, Label5, Label6 ve Label7 formun ortasında kalıyor. Burda bu Labelleri nasıl formun en altına alabilirim acaba. .

Herkese Çok Kolay Gelsin.

 

[Levent Menteşoğlu]

Dosyanızı eklermisiniz.

 

[captan]

Örnek Dosya

Sayın Leventm Bey
İlginize çok teşekkür ediyorum

Örnek bir dosya ekledim,

Kolay Gelsin . .

 

[Levent Menteşoğlu]

Aşağıdaki kodu userformun kod sayfasına kopyalayarak deneyin.

Private Sub UserForm_Resize()
Dim a As Integer
For a = 9 To 12
Controls("label" & a).Top = 306 * Me.Height / 373.5
Next
End Sub