VERSION 5.00
Begin {BD4B4E61-F7B8-11D0-964D-00A0C9273C2A} crDailyTraining 
   ClientHeight    =   10020
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   14325
   OleObjectBlob   =   "crDailyTraining.dsx":0000
End
Attribute VB_Name = "crDailyTraining"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Section2_Format(ByVal pFormattingInfo As Object)
On Error GoTo errhandler
   Set picLogo.FormattedPicture = LoadPicture("")
   If Len(fldstrLogoPath.Value) > 0 Then
      If Dir(fldstrLogoPath.Value) <> "" Then
         Set picLogo.FormattedPicture = LoadPicture(fldstrLogoPath.Value)
      End If
   End If
   Exit Sub
errhandler:
   picLogo.Suppress = True
End Sub