Option Explicit

Private Sub btn_risk_Click()
    OpenRiskSim
End Sub

Private Sub btn_tree_Click()
    OpenDecisionTree
End Sub

Private Sub btn_sensitivity_Click()
    OpenSensitivityModule
End Sub

Private Sub btn_stats_Click()
    OpenStatLab
End Sub

Private Sub btn_evo_Click()
    OpenEvoOpt
End Sub

Private Sub btn_neural_Click()
    ShowModulePlan "neural"
End Sub

Private Sub btn_riskopt_Click()
    ShowModulePlan "riskopt"
End Sub

Private Sub btnClose_Click()
    Unload Me
End Sub

Private Sub UserForm_Initialize()
    StyleSuiteControls Me
    Me.lblTitle.Font.Size = 18
    Me.lblTitle.Font.Bold = True
    Me.lblSubtitle.Font.Size = 10
    On Error Resume Next
    Set Me.img_ai.Picture = LoadPicture(ThisWorkbook.Path & "\suite_assets\suite_ai.bmp")
    Set Me.img_risk.Picture = LoadPicture(ThisWorkbook.Path & "\suite_assets\suite_risk.bmp")
    Set Me.img_tree.Picture = LoadPicture(ThisWorkbook.Path & "\suite_assets\suite_tree.bmp")
    Set Me.img_sensitivity.Picture = LoadPicture(ThisWorkbook.Path & "\suite_assets\suite_sensitivity.bmp")
    Set Me.img_stats.Picture = LoadPicture(ThisWorkbook.Path & "\suite_assets\suite_stats.bmp")
    Set Me.img_evo.Picture = LoadPicture(ThisWorkbook.Path & "\suite_assets\suite_evo.bmp")
    Set Me.img_neural.Picture = LoadPicture(ThisWorkbook.Path & "\suite_assets\suite_neural.bmp")
    Set Me.img_riskopt.Picture = LoadPicture(ThisWorkbook.Path & "\suite_assets\suite_riskopt.bmp")
    On Error GoTo 0
End Sub

Private Sub btn_ai_Click()
    ShowModulePlan "ai"
End Sub

Private Sub StyleSuiteControls(ByVal container As Object)
    Dim ctl As Object
    For Each ctl In container.Controls
        Select Case TypeName(ctl)
        Case "Label", "CommandButton", "Frame"
            ctl.Font.Name = "Arial"
            ctl.Font.Size = 9
        End Select
        If Left$(ctl.Name, 5) = "name_" Then
            ctl.Font.Size = 11
            ctl.Font.Bold = True
        End If
        If TypeName(ctl) = "CommandButton" Then
            ctl.Font.Size = 10
            ctl.Font.Bold = True
        End If
        If TypeName(ctl) = "Frame" Then StyleSuiteControls ctl
    Next ctl
End Sub
