
Private Sub lvwMain_MouseMove(Button As Integer, Shift As Integer, x As Single,
 y As Single)
   lblStatus.Caption = "MouseMove " &amp; x &amp; "," &amp; y
End Sub

Private Sub lvwMain_MouseUp(Button As Integer, Shift As Integer, x As Single, y
 As Single)
   lblStatus.Caption = "MouseUp " &amp; x &amp; "," &amp; y
End Sub

Private Sub Form_Load()
Dim i As Long
Dim j As Long
   
   Me.Show
   Me.Refresh
   
   With cboView
      .AddItem "Tiles"
      .ItemData(.NewIndex) = 4
      .AddItem "Large Icons"
 