Visual Basic

Dim pic_image As New Bitmap("c:\sample.jpg")<br />
MsgBox(pic_image.Size.Height & "---" & pic_image.Size.Width)

Dim startX As Integer<br />
    Dim StartY As Integer<br />
<br />
Private Sub picmain_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles picmain.MouseMove<br />
        If e.Button = MouseButtons.Left Then<br />
            picmain.Refresh()<br />
            Dim g As Graphics = Graphics.FromHwnd(picmain.Handle)<br />
            Dim myPen As Pen = New Pen(Color.Red)<br />
            myPen.DashStyle = System.Drawing.Drawing2D.DashStyle.Dash<br />
            g.DrawRectangle(myPen, startX, StartY, Math.Abs(startX - e.X), Math.Abs(StartY - e.Y))<br />
        End If<br />
    End Sub<br />
<br />
Private Sub picmain_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles picmain.MouseDown<br />
        startX = e.X<br />
        StartY = e.Y<br />
    End Sub