'计算截图框坐标 Dim bl_w As Double = 640 / ylk.Width Dim bl_h As Double = 480 / ylk.Height Dim x As Integer = Math.Abs(zs.Left-ylk.left) * bl_w Dim y As Integer = Math.Abs(zs.Top-ylk.Top) * bl_h Dim w As Integer = Math.Abs(zs.Left - yx.Left) * bl_w Dim h As Integer = Math.Abs(zs.Top - yx.Top) * bl_h