Open App.Path & "\buttons.shell" For Input As # 1 
            Line Input # 1 , t_str
            v = Split(t_str, "|")
            Label3( 0 ).Caption = v( 0 )
            Label3( 0 ).Tag = v( 1 )
            Picture1( 0 ).Tag = v( 3 )
            draw ( 0 )
            While Not EOF( 1 )
                Line Input # 1 , t_str
                t_num = Label3.UBound +  1 
                Load Picture1(t_num)
                Load Label3(t_num)
                Label3(t_num).Left = Label3( 0 ).Left
                Picture1(t_num).Left = Picture1( 0 ).Left
                Label3(t_num).Top =  0 
                Picture1(t_num).Top = Picture1(t_num -  1 ).Top + Picture1( 0 ).Height + zazor
                v = Split(t_str, "|")
                Label3(t_num).Caption = v( 0 )
                Label3(t_num).ForeColor = &H808080
                Label3(t_num).Tag = v( 1 )
                Picture1(t_num).Tag = v( 3 )
                Picture1(t_num).Visible = True
                Label3(t_num).Visible = True
                draw (t_num)
            Wend
    Close # 1