未完成--表单初始化

'初始化有两种意思，一种是真初始化变量等。另一种只是初始化表单，开始加载等待，还分开词汇吧
'非初始化，是初始加载，取得本轮内的gcount

层次1 ，表单/uI 显示初始化

层次2： 读取初始化

    Label1.Caption = "id= " & id3
    Label2.Caption = name3
    Select Case type3
       Case Is = 1
           type3ch = "Battle Pet"
       Case Is = 2
           type3ch = "Assist Pet"
       Case Is = 3
           type3ch = "Interior Pet"
    End Select
    Label3.Caption = type3ch
    
    Image1.PictureSizeMode = fmPictureSizeModeZoom
    Image1.Picture = LoadPicture(ThisWorkbook.Path & "\res\" & icon3 & ".jpg")
    

层次3 随机初始化

'成长率，
    '先判断是否初始化了成功率
    
    Label22.Visible = False
'    Label23.Visible = False
    
    x2 = Application.Match("成长率初值", Worksheets("petbag").Range("2:2"), 0)
    If Worksheets("petbag").Cells(index1 + 2, x2) = "" Then
       Call fresh_grow1
       Call show_grow1
    Else
       Call show_grow1
'    Label8.Caption = Worksheets("PromoteProgress").Cells(3, 8) + 1111     '成长率随机初值
    End If