Sub OpenWindow(imageURL, Width, Height)
	If Screen.Width < (Width + 20) Or Screen.Height < (Height + 20)  Then
		dim answer
		answer = MsgBox(".دقة وضوح الشاشة التي تستعملها غير مناسبة لعرض الصورة بحجمها الفعلي", 0, "دقة وضوح غير مناسبة")
	Else
		Dim oWin
		oWin = Window.Open(imageURL,null,"height=" + CStr(Height+20) + ",width=" + CStr(Width+20) + ",toolbar=no,status=no,menubar=no,location=no,left=0,top=0")
	End If
	
End Sub