Kevin,

It's VB. I'm sorry for the length of the code; this is the smallest one.

First, the base class:

Namespace MailHouse.BusinessLogic
  Public Class FormsBase
     Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

     Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

     End Sub

     'Form overrides dispose to clean up the component list.
     Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
           If Not (components Is Nothing) Then
              components.Dispose()
           End If
        End If
        MyBase.Dispose(disposing)
     End Sub

     'Required by the Windows Form Designer
     Private components As System.ComponentModel.IContainer

     'NOTE: The following procedure is required by the Windows Form Designer
     'It can be modified using the Windows Form Designer.  
     'Do not modify it using the code editor.
     Public WithEvents usb1 As System.Windows.Forms.StatusBarPanel
     Public WithEvents usb2 As System.Windows.Forms.StatusBarPanel
     Public WithEvents usbCompanyName As System.Windows.Forms.StatusBarPanel
     Public WithEvents usb As System.Windows.Forms.StatusBar
     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.usb = New System.Windows.Forms.StatusBar
        Me.usb1 = New System.Windows.Forms.StatusBarPanel
        Me.usb2 = New System.Windows.Forms.StatusBarPanel
        Me.usbCompanyName = New System.Windows.Forms.StatusBarPanel
        CType(Me.usb1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.usb2, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.usbCompanyName, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'usb
        '
        Me.usb.Location = New System.Drawing.Point(0, 244)
        Me.usb.Name = "usb"
        Me.usb.Panels.AddRange(New System.Windows.Forms.StatusBarPanel() {Me.usb1, Me.usb2,
Me.usbCompanyName})
        Me.usb.ShowPanels = True
        Me.usb.Size = New System.Drawing.Size(368, 22)
        Me.usb.TabIndex = 0
        '
        'usb1
        '
        Me.usb1.AutoSize = System.Windows.Forms.StatusBarPanelAutoSize.Spring
        Me.usb1.Width = 171
        '
        'usb2
        '
        Me.usb2.AutoSize = System.Windows.Forms.StatusBarPanelAutoSize.Spring
        Me.usb2.Width = 171
        '
        'usbCompanyName
        '
        Me.usbCompanyName.AutoSize = System.Windows.Forms.StatusBarPanelAutoSize.Contents
        Me.usbCompanyName.Width = 10
        '
        'FormsBase
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(368, 266)
        Me.Controls.Add(Me.usb)
        Me.Name = "FormsBase"
        Me.Text = "FormsBase"
        CType(Me.usb1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.usb2, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.usbCompanyName, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

     End Sub

#End Region

     Private Sub InitializeStatusBar()

        Me.usbCompanyName.Text = Tools.CompanyName & " (" & Tools.UserName & ")"

        usb.BackColor = Color.Azure

     End Sub

     Private Sub FormsBase_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles
MyBase.Load
        Me.InitializeStatusBar()
     End Sub
  End Class
End Namespace

And the derived class:

Option Explicit On
Option Strict On
Imports MailHouse.DataAccess
Imports MailHouse.Info
Imports Infragistics.Win.UltraWinGrid

Public Class ScheduledZips
  Inherits FormsBase

#Region " Windows Form Designer generated code "

   Public Sub New()
       MyBase.New()

       'This call is required by the Windows Form Designer.
       InitializeComponent()

       'Add any initialization after the InitializeComponent() call

   End Sub

   'Form overrides dispose to clean up the component list.
   Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
       If disposing Then
           If Not (components Is Nothing) Then
               components.Dispose()
           End If
       End If
       MyBase.Dispose(disposing)
   End Sub

   'Required by the Windows Form Designer
   Private components As System.ComponentModel.IContainer

   'NOTE: The following procedure is required by the Windows Form Designer
   'It can be modified using the Windows Form Designer.  
   'Do not modify it using the code editor.
   Friend WithEvents ugrdSchedZip As Infragistics.Win.UltraWinGrid.UltraGrid
   Friend WithEvents lblBatch As System.Windows.Forms.Label
   <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
     Dim resources As System.Resources.ResourceManager = New
System.Resources.ResourceManager(GetType(ScheduledZips))
     Me.ugrdSchedZip = New Infragistics.Win.UltraWinGrid.UltraGrid
     Me.lblBatch = New System.Windows.Forms.Label
     CType(Me.ugrdSchedZip, System.ComponentModel.ISupportInitialize).BeginInit()
     Me.SuspendLayout()
     '
     'ugrdSchedZip
     '
     Me.ugrdSchedZip.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or
System.Windows.Forms.AnchorStyles.Bottom) _
                 Or System.Windows.Forms.AnchorStyles.Left) _
                 Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
     Me.ugrdSchedZip.Location = New System.Drawing.Point(16, 104)
     Me.ugrdSchedZip.Name = "ugrdSchedZip"
     Me.ugrdSchedZip.Size = New System.Drawing.Size(450, 224)
     Me.ugrdSchedZip.TabIndex = 0
     '
     'lblBatch
     '
     Me.lblBatch.Location = New System.Drawing.Point(16, 16)
     Me.lblBatch.Name = "lblBatch"
     Me.lblBatch.Size = New System.Drawing.Size(450, 80)
     Me.lblBatch.TabIndex = 1
     '
     'ScheduledZips
     '
     Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
     Me.ClientSize = New System.Drawing.Size(488, 366)
     Me.Controls.Add(Me.lblBatch)
     Me.Controls.Add(Me.ugrdSchedZip)
     Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
     Me.MaximumSize = New System.Drawing.Size(496, 1000)
     Me.MinimumSize = New System.Drawing.Size(496, 400)
     Me.Name = "ScheduledZips"
     Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
     Me.Text = "Mail Campaign Zips"
     Me.Controls.SetChildIndex(Me.ugrdSchedZip, 0)
     Me.Controls.SetChildIndex(Me.lblBatch, 0)
     Me.Controls.SetChildIndex(Me.usb, 0)
     CType(Me.ugrdSchedZip, System.ComponentModel.ISupportInitialize).EndInit()
     Me.ResumeLayout(False)

  End Sub

#End Region

  'Display statistics for the selected Mail Campaign, including counts by Zip
  ' Original Mail Date and Scheduled Mail Date

#Region " Fields "
  Private m_MailCampaignDetailID As Integer
  Private m_NextMailDate As Date
  Private m_MailCampaignDescr As String
  Private m_Count As Integer
#End Region

#Region " Constructors "
  Public Sub New(ByVal MailCampaignDetailID As Integer, _
                  ByVal NextMailDate As Date, _
                  ByVal MailCampaignDescr As String, _
                  ByVal Count As Integer)

     Me.New()
     Me.MailCampaignDetailID = MailCampaignDetailID
     Me.NextMailDate = NextMailDate
     Me.MailCampaignDescr = MailCampaignDescr
     Me.Count = Count

  End Sub
#End Region

#Region " Private Methods "
  Private Sub ScheduledZips_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles
MyBase.Load

     Me.displayGrid()
     Me.displayLabel()

  End Sub
  Private Sub displayGrid()

     Dim sm As ScheduledMailingsDB = New ScheduledMailingsDB
     Dim ds As DataSet = sm.ScheduleZips(m_MailCampaignDetailID, m_NextMailDate)
     ugrdSchedZip.DataSource = ds
     ugrdSchedZip.DataMember = "ScheduleZips"

  End Sub
  Private Sub displayLabel()

     Dim sm As ScheduledMailingsDB = New ScheduledMailingsDB
     Dim mailing As New MailingsDB
     Dim BatchID As Integer = mailing.BatchIDFromMailCampaign( _
           m_MailCampaignDetailID, m_NextMailDate)

     Dim mb As New MailingBatchDB
     Dim mbi As MailingBatchInfo = mb.GetMailingBatch(BatchID)

     Dim bt As String = mbi.BatchType.ToString
     Dim pt As String = mbi.PostageType.ToString

     Dim dt As String = "Original Mail Date - " & _
                          mbi.DateAdded.ToString("F")

     Dim mcd As New MailCampaignDetailDB
     Dim mcdi As MailCampaignDetailInfo
     ' Retrieve a MailCampaignDetailInfo record for this next MailCampaignDetailID
     mcdi = mcd.GetMailCampaignDetail(m_MailCampaignDetailID)
     ' and use its NextMailDate and Sequence in the array we are building

     Dim NextMailDate As String = "Scheduled Mail Date - "

     If mcdi.DaysUntilNext = 0 Then
        NextMailDate &= "End of sequence"
     Else
        NextMailDate &= sm.CalculateNextMailDate(mbi.DateAdded, mcdi.DaysUntilNext).ToString("D")
     End If

     lblBatch.Text = "Scheduled Mail Campaign - " & m_MailCampaignDescr & ControlChars.NewLine & _
        "Original Mail Campaign - Batch ID - " & BatchID.ToString & _
        ", " & bt & ", " & pt & ControlChars.NewLine & "Total Count - " & m_Count & ", Sequence - "
& _
        mcdi.Sequence & ControlChars.NewLine & _
        dt & ", " & ControlChars.NewLine & NextMailDate

  End Sub
  Private Sub ugrdSchedZip_InitializeLayout(ByVal sender As Object, ByVal e As
Infragistics.Win.UltraWinGrid.InitializeLayoutEventArgs) Handles ugrdSchedZip.InitializeLayout
     e.Layout.Bands(0).Columns("Total Count").Hidden = True
     e.Layout.Bands(0).Columns("Descr").Width = 250
     e.Layout.Bands(0).Columns("Descr").Header.Caption = "Description"
     e.Layout.Bands(0).Columns("Zip").Header.Caption = "Zip Code"
     e.Layout.Bands(0).Columns("Count").CellAppearance.TextHAlign = Infragistics.Win.HAlign.Right

     e.Layout.Override.AllowAddNew = AllowAddNew.No
     e.Layout.Override.AllowDelete = Infragistics.Win.DefaultableBoolean.False
     e.Layout.Override.AllowUpdate = Infragistics.Win.DefaultableBoolean.False
     'Display total count for this Mail Campaign
     'e.Layout.Bands(0).Summaries.Add(SummaryType.Sum, e.Layout.Bands(0).Columns(3))

  End Sub
#End Region

#Region " Properties "
  Public Property MailCampaignDetailID() As Integer
     Get
        Return m_MailCampaignDetailID
     End Get
     Set(ByVal Value As Integer)
        m_MailCampaignDetailID = Value
     End Set
  End Property
  Public Property NextMailDate() As Date
     Get
        Return m_NextMailDate
     End Get
     Set(ByVal Value As Date)
        m_NextMailDate = Value
     End Set
  End Property
  Public Property MailCampaignDescr() As String
     Get
        Return m_MailCampaignDescr
     End Get
     Set(ByVal Value As String)
        m_MailCampaignDescr = Value
     End Set
  End Property
  Public Property Count() As Integer
     Get
        Return m_Count
     End Get
     Set(ByVal Value As Integer)
        m_Count = Value
     End Set
  End Property
#End Region

End Class