evb big screen

Option Explicit
Private Sub Form_Load()
   
    vsbMove.Max = fraData.Height - 4020
  
    vsbMove.Min = 0
   
    vsbMove.SmallChange = vsbMove.Max / 100
   
    vsbMove.LargeChange = vsbMove.Max / 10
End Sub
Private Sub Form_OKClick()
    App.End
End Sub
Private Sub vsbMove_Change()
   
     fraData.Move 0, -vsbMove.Value
End Sub