Function GetWindowTextStr(hwnd As HWND, ByRef str As String) As Long
	Dim Length As Long
	Length = GetWindowTextLength(hwnd)
	str = ZeroString(Length)
	If Length = 0 Then
		GetWindowTextStr = 0
		Exit Function
	End If
	GetWindowTextStr = GetWindowText(hwnd, StrPtr(str), Length + 1)
	SetDWord(StrPtr(str) - SizeOf (DWord), GetWindowTextStr)
End Function

Function GetDlgItemTextStr(hDlg As HWND, idDlgItem As Long, ByRef str As String) As Long
	GetDlgItemTextStr = GetWindowTextStr(GetDlgItem(hDlg, idDlgItem), str)
End Function