The look of code enclosed between {HIGHLIGHT=vb}{/HIGHLIGHT} is very bad, first it just show only 4 lines at a time, second the line numbers are not continues as it is go from 1 to 9

here is an example with {HIGHLIGHT=vb}{/HIGHLIGHT}
vb Code:
  1. Option Explicit

  2.  

  3. Dim mblnMouseDown As Boolean

  4. Dim msngX As Single

  5.  

  6. Private Sub MDIForm_Resize()

  7.     Picture1.Width = Me.Width / 4

  8. End Sub

  9.  

  10. Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

  11.     If Button = 1 Then

  12.         mblnMouseDown = True

  13.         msngX = X

  14.     End If

  15. End Sub

  16.  

  17. Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

  18.     mblnMouseDown = False

  19. End Sub

  20.  

  21. Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

  22.     

  23.     On Error Resume Next

  24.     

  25.     If X > Picture1.Width - 240 Then

  26.         Picture1.MousePointer = 9

  27.     Else

  28.         Picture1.MousePointer = 0

  29.     End If

  30.         

  31.     If Button = 1 Then

  32.         If mblnMouseDown = True Then

  33.             If Picture1.Width < 1200 Then

  34.                 Picture1.Width = 1200

  35.             Else

  36.                 Picture1.Width = Picture1.Width + (X - msngX)

  37.                 msngX = X

  38.             End If

  39.         End If

  40.     End If

  41. End Sub


the same example with {CODE}{/CODE}
Code:
Option Explicit
 
Dim mblnMouseDown As Boolean
Dim msngX As Single
 
Private Sub MDIForm_Resize()
    Picture1.Width = Me.Width / 4
End Sub
 
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
        mblnMouseDown = True
        msngX = X
    End If
End Sub
 
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    mblnMouseDown = False
End Sub
 
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    
    On Error Resume Next
    
    If X > Picture1.Width - 240 Then
        Picture1.MousePointer = 9
    Else
        Picture1.MousePointer = 0
    End If
        
    If Button = 1 Then
        If mblnMouseDown = True Then
            If Picture1.Width < 1200 Then
                Picture1.Width = 1200
            Else
                Picture1.Width = Picture1.Width + (X - msngX)
                msngX = X
            End If
        End If
    End If
End Sub
I hope there is a solution.