Public Class Form1
  Dim x1, y1, x2, y2, w, h As Integer
  Dim dragRec As Boolean
  Dim memX, memY As Integer
 
  Private Sub Form1_Load _
             (sender As Object, e As EventArgs) Handles Me.Load 
  x1 = 80: y1 = 45: x2 = 240: y2 = 135 : w = 160: h = 90
  End Sub
 
  Private Sub pb1_MouseDown _
             (ByVal sender As Object, ByVal e As _
             System.Windows.Forms.MouseEventArgs) Handles pb1.MouseDown
  dragRec = True
  memX = e.X: tb1.Text = memX
  memY = e.Y: tb2.Text = memY
  End Sub
 
  Private Sub pb1_MouseMove _
             (ByVal sender As Object, ByVal e As _
             System.Windows.Forms.MouseEventArgs) Handles pb1.MouseMove
  If Not dragRec Then Exit Sub
 
  x1 = x1+(e.X-memX) 
  memX = e.X
  y1 = y1+(e.Y-memY) 
  memY = e.Y
  x2 = x1+w
  y2 = y1+h
 
  If x1 < 0 OR y1 < 0 OR x2 > pb1.Width-3 OR y2 > pb1.Height-3 Then Exit Sub
 
  pb1.Refresh
  End Sub
 
  Private Sub pb1_MouseUp_
             (ByVal sender As Object, ByVal e As _
             System.Windows.Forms.MouseEventArgs) Handles pb1.MouseUp
  dragRec = False
  End Sub
 
 
 
  Private Sub pb1_Paint _
             (sender As Object, e As PaintEventArgs) Handles pb1.Paint 
  e.Graphics.DrawRectangle(Pens.Red, x1, y1, x2-x1, y2-y1)
  End Sub
End Class