Width property example

The following example demonstrates how to set and return the Width property.

Private Sub WidthPropExample()

     Dim myWidth As Double

     myWidth = Application.Width

     MsgBox ("Width is: " & myWidth)

End Sub