If Position > 100 Then
If svhotelinfo.Top = 0 Then
svhotelinfo.Height = svhotelinfo.Height + 65dip
svhotelinfo.Top = svhotelinfo.Top - 65dip
End If
Else if Position < 50 Then
If svhotelinfo.Top < 0 Then
svhotelinfo.Height = svhotelinfo.Height - 65dip
svhotelinfo.Top = svhotelinfo.Top + 65dip
End If
End If