skrolbar på from?

Hvis du lægger en VScrollbar på din form og paster flg. kode ind på formen så flytter du formen mens scrollbaren ligger fast:
Private Sub VScroll1_Scroll()
   
  step = 50
   
    If mem >= VScroll1.Value Then
        ' vi scoller op - flyt form nedad
        Form1.Top = Form1.Top + step
        VScroll1.Top = VScroll1.Top - step
    Else
        ' vi scoller ned - flyt form opad
        Form1.Top = Form1.Top - step
        VScroll1.Top = VScroll1.Top + step
    End If
    mem = VScroll1.Value
End Sub


//akj

det funger ikke det er Scrollern der flyter sej

Private mem As Integer

Private Sub VScroll1_Scroll()
   
  step = 50
   
    If mem > VScroll1.Value Then
        ' vi scoller op - flyt form nedad
        Form1.Top = Form1.Top + step
        VScroll1.Top = VScroll1.Top - step
    Else
        ' vi scoller ned - flyt form opad
        Form1.Top = Form1.Top - step
        VScroll1.Top = VScroll1.Top + step
    End If
    mem = VScroll1.Value
End Sub


//akj