Sub sview_ScrollChanged(PosX As Int, PosY As Int)
Dim pos As Float
pos = PosX / columnwidth
If pos < 0.5 Then
pos = 0'center first column
Else If pos < 1.5 Then
pos = 1'center second column
Else If pos < 2.5 Then
pos = 2'center third column
Else If pos < 3.5 Then
pos = 3'center forth column
Else If pos < 4.5 Then
pos = 4'center fith column
Else If pos < 5.5 Then
pos = 5'center sixth column
End If
sview.SmoothScrollTo((pos*columnwidth), currentY)
DoEvents
End Sub