Creates a new view with the given coordinates, adds it to the model, and then returns the new view to the caller. PARAMETERS: HorizontalPosition (Integer), VerticalPosition (Integer).
Public Function Add(_ ByVal HorizontalPosition As Variant,_ ByVal VerticalPosition As Variant _ ) As View |
Dim MyModel As Model Dim MyView As View Dim HorizPo As Integer Dim VertPo As Integer 'Setting horizontal and vertical position for the new view HorizPo = 100 VertPo = 100 |