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


Private Sub cmdWorkAreas_Click()
   Dim fW As New frmTestWorkAreas
   fW.Show
End Sub

Private Sub Form_Resize()
   On Error Resume Next
   lvwMain.Move _
      lvwMain.Left, _
      lvwMain.Top, _
      Me.ScaleWidth - picTest.Width - Me.ScaleX(4, vbPixels, Me.ScaleMode), _
      Me.ScaleHeight - lvwMain.Top - picOptions.Height - picStatus.Height -
       Me.ScaleY(4, vbPi