Resize object by Resize (RESOLVED)

I am trying to resize an object, lets use a label as an example:
Private Sub Form_Resize()
label1.Height = Screen.Height - 1800
label1.Width = Screen.Width - 500
End Sub
Using this code will only resize to the size of the window, whereas I need the object to resize to the form.
Any help is greatly appreciated, Thanks in advance if I don't get back to you. :thumb:






Added green "resolved" checkmark - Hack

To Help you understand my posistion, I will further explain my problem:
Private Sub Form_Resize()
label1.Height = Screen.Height - 1800
label1.Width = Screen.Width - 500
End Sub
-
Where screen.height is, I need to replace screen with the current value of the form height.

You want the label to cover the entire form, or stretch to its left and right edges, or stretch to its top and bottom edges, or.....?

By the way, in terms of your application, your form is the window.

Quote:

---

Originally Posted by Halazonia

To Help you understand my posistion, I will further explain my problem:
Private Sub Form_Resize()
label1.Height = Screen.Height - 1800
label1.Width = Screen.Width - 500
End Sub
-
Where screen.height is, I need to replace screen with the current value of the form height.

---

couldn't you just do?

VB Code:

label1.Height = Form1.Height - 1800
label1.Width = Form1.Width - 500

Do you want the label to completely fill the available client space of the form?

VB Code:

Private Sub Form_Resize()
   If WindowState <> vbMinimized Then
 
       If Me.ScaleHeight > 1800 Then  label1.Height = Me.ScaleHeight - 1800
       If Me.ScaleWidth > 500 Then  label1.Width = Me.ScaleWidth - 500
     
   End If
End Sub

Thanks all, Problem solved.