Thanks help many question in many head.....
I create a form and draw.
I also draw Two pic box who name is.
Picture1 and Picture2 and Four textbox and one command1.
i put in textbox X1,Y1 and X2,Y2 select area when click command the area not crop i help you

code this i used

Private Sub Form_Load()
Dim imagecrop
Picture1.AutoRedraw = True
Picture1.DrawMode = vbInvert
Picture2.AutoRedraw = True
Picture2.DrawMode = vbInvert
imagecrop = "C:\25-678-903.JPG"
Picture1.Picture = LoadPicture(imagecrop)
Picture1.Visible = True
Picture2.Visible = True

End Sub

Private Sub Command3_Click()

m_X1 = Text1.Text
m_Y1 = Text2.Text
wid = Text3.Text
hgt = Text4.Text

Picture2.Width = wid + (Picture2.Width - Picture2.ScaleWidth)
Picture2.Height = hgt + (Picture2.Height - Picture2.ScaleHeight)

Picture2.PaintPicture Picture1.Picture, 0, 0, wid, hgt, m_X1, m_Y1, wid, hgt
Picture2.Picture = Picture2.Image

End Sub



please help me