尊敬的客服：
      您好，我是一名在校大学生读者，前不久刚买了一本贵公司编著的Visual Basic项目开发实例。由于我还没有参加工作，只有一定的VB基础，所以对书中的一些程序有一些不懂之处，特此向贵公司工作多年的师傅请教，请您们解答。
      第一部分问题（企业HR管理系统）
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

这是书本的221面的 2.声明API函数ShellExecute，这段声明不太懂，恳求赐教。由于学院课本没有过多介绍，所以请最好能把API函数的用法详细解答一下。

2．Private Sub picOK_Click()
   Static intMytimes As Integer
Dim rs1 As New ADODB.Recordset,rs2 As New ADODB.Recordset
rs1.Open”权限信息表”,Cnn,adOpenKeyset,adLockOptimistic
If rs1.RecordCount>0  Then 
If txtUserName.txt=”” Then
MsgBox”请输入用户名!”,”提示窗口”
txtUserName.SetFocus
Exit Sub
End if
   这是本书第222面的 一段代码
（1）在ASP访问数据库中adOpenKeyset 的意思是：读写，当前记录指针可以前后移动。请问在这段代码中的意思以在ASP中的意思是否相同。
(2) 在ASP访问数据库中adLockOptimistic的意思是：乐观锁定；只将修改的结果集中的记录写回数据库时才锁定该记录。请问在这段代码中的意思以在ASP中的意思是否相同。
  （3）Dim rs1 As New ADODB.Recordset,rs2 As New ADODB.Recordset
   此句用了 Dim 对象名 As New类名(参数)。这是VB.NET中的语法。请问书中是否有其他部分也用了VB.NET的语法格式。
   
3．If txtPassword = rs2.Fields("密码") Then
         czy = txtUserName
         Load frmMain
         frmMain.Show
这是本书中222面的部分代码，在这段代码中有一句：txtPassword = rs2.Fields。根据=号的意义，是把=号右边的参数赋值给左边的变量,那么这里的语句为什么不是rs2.Fields =txtPassword (txtPassword是用户实际输入给Text的值)


       第二部分（生产管理系统）
1. rivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
2. Private Declare Function ReleaseCapture Lib "user32" () As Long
这二段代码不懂，请详细赐教。

3. Dim m As Integer
    For i = 1 To Index
        Command1(i).Top = Command1(i - 1).Top + Command1.Item(i - 1).Height
    Next i
    ListView1.Top = Command1(i - 1).Top + Command1.Item(i - 1).Height
    If Index < 6 Then Command1(Index + 1).Top = ListView1.Top + ListView1.Height
    For i = Index + 2 To Command1.Count - 1
        Command1(i).Top = Command1.Item(i - 1).Top + Command1.Item(i - 1).Height
    Next i
CommandBox为什么会有Item属性？这段代码不懂。（这是本书066而代码部分，不懂，请赐教）

4. Private Sub ListView1_Click()
    If ListView1.ListItems.Count > 0 Then
        '查询操作员信息
        rs.Open "select * from tb_user where user_Name ='" + ListView1.SelectedItem + "'", cnn, adOpenKeyset
        If rs.RecordCount > 0 Then
            '给相应的控件赋值
            Lbl_Czyid.Caption = rs.Fields("user_id")
            Lbl_Name.Caption = rs.Fields("user_Name")
            MyIcon = Val(Right(rs.Fields("user_tx"), Val(Len(rs.Fields("user_tx")) - 2)))
            Set Img_Tx.Picture = Imt_Tx.ListImages(MyIcon).Picture
        End If
        rs.Close
    End If
End Sub
这是本书069面代码，其中MyIcon = Val(Right(rs.Fields("user_tx"), Val(Len(rs.Fields("user_tx")) - 2)))
            Set Img_Tx.Picture = Imt_Tx.ListImages(MyIcon).Picture
这二句不太懂，请赐教。


     我是一个初学者，虽然二级VB考试笔试成绩近80分仍还有许多地方要学习，所以特此来信希望能得到解答。
     祝贵公司事业一帆风顺，公司职员工作顺利。
     至此
敬礼