static extern bool FtpCreateDirectory(IntPtr hConnect, string lpszDirectory);

  Private Shared Function FtpCreateDirectory(ByVal hConnect As IntPtr, ByVal lpszDirectory As String) As Boolean