 lstTest.Move lblLogoBack.Left + Screen.TwipsPerPixelX, lblSimple.Top +
    lblSimple.Height + 2 * Screen.TwipsPerPixelY, lblLogoBack.Width,
    Me.ScaleHeight - (lblSimple.Top + lblSimple.Height + 4 *
    Screen.TwipsPerPixelY + sbrMain.Height * Abs(sbrMain.Visible))
End Sub

Private Sub lblSimple_MouseDown(Button As Integer, Shift As Integer, X As
 Single, Y As Single)
   sbrMain.SimpleMode = True
   sbrMain.SimpleText = "Drag mouse to see X,Y"
End Sub

Private Sub lblSimple_MouseMove(Button As Integer, S