Attribute VB_Name = "modCommon"
Option Explicit

'************************************************************************
  Sub CenterForm(TheForm As Form)
'************************************************************************

    With TheForm
        .Top = (Screen.Height - .Height) / 2
        .Left = (Screen.Width - .Width) / 2
    End With

  End Sub