我是初学者，哪位大哥能帮我注释这段程序？谢谢

Question

Private  Sub  Form_Load()  
On  Error  GoTo  ErrorBJ:  
       Set  Cs  =  New  Class_BJ  
       Set  rs  =  New  ADODB.Recordset                                                                  
       Me.Left  =  0  
       Me.Top  =  0  
       ReportPath  =  App.Path  +  "\reports\"  
       TreeDcode                                          //  
       TreeLB                                                //  
       With  Grid_MX  
               .FormatString  =  "..."  
               .Rows  =  1                                            //  
       End  With  
       TabMain.Tab  =  0                                        //  
       If  SysDcode  <>  ""  Then  
'                Toolbar_LB.Buttons(2).Enabled  =  False                    
'                Toolbar_LB.Buttons(3).Enabled  =  False  
'                Toolbar_LB.Buttons(4).Enabled  =  False                      //  
       End  If  
       If  Trim(Split(PcodePname,  "-")(1))  =  "李明"  Then  Cmd_Clear.Visible  =  True                        //  
       Exit  Sub  
ErrorBJ:  
       ErrorManage  
End  Sub  
 
标//的地方看不懂...

Answer 1

这些应该要结合你的工程在实际中用到了
哪些资源,然后你要实现什么功能等.
以下是我的猜测:
'调用外接DLL函数
TreeDcode                                          //  
TreeLB                                                //  '设定表格控件的行数
.Rows  =  1                                            // '显示Tab控件的第一页
TabMain.Tab  =  0                                        // '使ToolBar的第五个按钮无效
Toolbar_LB.Buttons(4).Enabled  =  False                      //  '按"-"字符把PcodePname拆开成数组,并取数组的第二值与"李明"进行比较
If  Trim(Split(PcodePname,  "-")(1))  =  "李明"  Then  Cmd_Clear.Visible  =  True                        //