我要在一个picturebox里画矩形,范围是 picturebox.Height*.3 到 picturebox.Height*.6 ,JGPVIES(n).JGMR=400000

如果JGPVIES(n).JGMR=800000,则矩形高度为picturebox.Height*.3 到 picturebox.Height*.6

现JGPVIES(n).JGMR=400000,则矩形高度为picturebox.Height*.45 到 picturebox.Height*.6

求教该如何计算newrelcre.Y 和 newrelcre.Height ,谢谢!!!

  Dim newrelcre As Rectangle
  newrelcre.X =  
  newrelcre.Y =   
  newrelcre.Width = CInt(picturebox.Width * 0.002)
  newrelcre.Height =  
  GTextbmp.FillRectangle(Brushes.Blue, newrelcre)