Part | Description | |
object | Required. A valid object. |
Dim Resize As Single
Private Sub UserForm_Initialize()
Resize = 0.75
CommandButton1.Caption = "Resize Button"
End Sub
Private Sub CommandButton1_Click()
CommandButton1.Move 10, 10, UserForm1.InsideWidth * Resize, UserForm1 _
.InsideHeight * Resize
CommandButton1.Caption = "Button resized using InsideHeight and" _
& " InsideWidth!"
End Sub