Type | Description | |||
Single | A Single expression that indicates the zoom factor. |
For instance, use the KeyDown event handler to zoom the view when the user presses the + key, like in the following VB sample:
Private Sub Texture1_KeyDown(KeyCode As Integer, Shift As Integer) If (KeyCode = vbKeyAdd) Then Texture1.Zoom = Texture1.Zoom - 0.01 Else If (KeyCode = vbKeySubtract) Then Texture1.Zoom = Texture1.Zoom + 0.01 End If End If End Sub