Private Type POINTAPI 
       X As Long 
       Y As Long 
End Type 

Private Declare Function GetCaretPos Lib "user32" (lpPoint As POINTAPI) As Long 
Private Sub LstSyntax_KeyUp(KeyCode As Integer, Shift As Integer) 
   If KeyCode = vbKeyReturn Then 
       'MsgBox "Selected Syntax Is " + LstSyntax.List(LstSyntax.ListIndex) 
       Text1.SetFocus 
       LstSyntax.Visible = False 
   End If 
End Sub 

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) 
   If KeyCode = vbKeySpace Then 
       Dim Pos As POINTAPI 
       GetCaretPos Pos 
       LstSyntax.Visible = True 
       LstSyntax.Top = Pos.Y +  15  
       LstSyntax.Left = Pos.X +  10  
       LstSyntax.SetFocus 
       LstSyntax.ListIndex =  0  
   End If 
End Sub