Dim rc As New Drawing.Rectangle(10, 10, 100, 100) g.DrawRectangle(p, rc) Console.WriteLine("Width : " & rc.Width.ToString("d") & " Height : " & rc.Height.ToString("d"))