Public Sub New(ByVal tmpDS As RAMs)
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
RaMs1.Merge(tmpDS)
clsRAMType = New RAMType
'clsRAMParticipants = New RAMPartcipants
clsRAMPurpose = New RAMPurpose
'clsRAMEnrolment = New RAMEnrollment
clsRAMPIR = New RAMPIRInd
clsRAMBackground = New RAMBackground
clsRAMPRISM = New RAMPrism
clsRAMRisks = New RAMOtherRiskFactors
clsRAMResults = New RAMTAResults
'clsRAMStrengths = New RAMStrength
'clsRAMChallenges = New RAMChallenge
'clsRAMSustain = New RAMSustain
'clsRAMTANeeds = New RAMAddTANeed
'clsRAMNextMeet = New RAMNextMeeting
CollapsePanel1.Add(clsRAMType)
'CollapsePanel1.Add(clsRAMParticipants)
CollapsePanel1.Add(clsRAMPurpose)
CollapsePanel1.Add(clsRAMBackground)
'CollapsePanel1.Add(clsRAMEnrolment)
CollapsePanel1.Add(clsRAMPIR)
CollapsePanel1.Add(clsRAMPRISM)
CollapsePanel1.Add(clsRAMRisks)
CollapsePanel1.Add(clsRAMResults)
'CollapsePanel1.Add(clsRAMStrengths)
'CollapsePanel1.Add(clsRAMChallenges)
'CollapsePanel1.Add(clsRAMSustain)
'CollapsePanel1.Add(clsRAMTANeeds)
'CollapsePanel1.Add(clsRAMNextMeet)
AddHandler clsRAMBackground.GranteeBackground, AddressOf GrantBG
AddHandler clsRAMRisks.PreviousRisks, AddressOf OtherRisks