如：
   Private Sub Text1_KeyPress(KeyAscii As Integer)
      If KeyAscii = 13 Then
         DataList1.SetFocus         
      End If
   End Sub
   Private Sub DataList1_GotFocus()
   ............' 问：如何自动选中第一行的text（颜色变蓝）
   End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
      If KeyAscii = 13 Then
         DataList1.SetFocus  
sendkeys "{down}"       加一句
      End If
   End Sub
就可以呢

问题解决，非常感谢！我找了很多地方都没有答案，呵呵