Box "Error: " &amp; Err.Description &amp; " [" &amp; Err.Number &amp; "]", vbInformation
   Exit Sub
End Sub

Private Sub cmdNew_Click()
   Dim f As New frmTestListView
   f.Show
   f.Move Me.Left + 32 * Screen.TwipsPerPixelX, Me.Top + 32 *
    Screen.TwipsPerPixelY
End Sub

Private Sub cmdRemove_Click()
On Error GoTo ErrorHandler
   If Not lvwMain.SelectedItem Is Nothing Then
      lvwMain.ListItems.Remove lvwMain.SelectedItem.Key
   Else
      MsgBox "No item is selected.", vbInformation
   End If
   Exit