NullChar)
   If iPos &gt; 0 Then
      GetCDlgFileName = Left$(sBuf, iPos - 1)
   End If
End Property

Public Function TabKeyProc(ByVal nCode As Long, ByVal wParam As Long, ByVal
 lParam As Long) As Long
  
 If nCode &gt;= 0 And Not (frmNew Is Nothing) Then
  If wParam = 9 Then
      
   If (lParam And &amp;HC0000000) = 0 And (lParam And KBH_MASK) &lt;&gt; 0 Then
    'do nothing
   ElseIf GetKeyState(VK_CONTROL) &lt;= 1 Then
    
    If GetKeyState(VK_SHIFT) &lt; 0 And GetKeyState(VK_TAB) &lt; 0 Then
     I