
         Next i
      End With
      
      .TileViewItemLines = 3
               
      .Visible = True
   End With
   
   
End Sub

Private Sub lvwMain_OLEStartDrag(Data As DataObject, AllowedEffects As Long)
   AllowedEffects = vbDropEffectMove
End Sub

Private Sub lvwMain_Resize()
   '
   'lvwMain.Arrange eLVAlignLeft
   '
End Sub
</pre><p>&#160;</p><p>&#160;</p><p>&#160;</p><p>&#160;</p><p>&#160;</p><p>&#160;</p></td><td class="rightbar" valign="top" bgcolor="#C2BEB1">
<!-- No right bar content curren