'========================================

Sub QTP_PrintLogClear

	Dim Hwnd
	Const WM_CLEAR= &HC

	Extern.Declare micLong, "SendMessage", "user32.dll", "SendMessageA", micHwnd, micLong, micLong, micLong

	Hwnd = Window("regexpwndtitle:=QuickTest Print Log").WinEditor("nativeclass:=Edit","index:=0").GetROProperty ("hwnd")

	If Hwnd > 0 Then

		Extern.SendMessage Hwnd, WM_CLEAR, 0, 0

	End If

End Sub

'========================================