Private Sub btnBowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBowse.Click
Dim tmpFilename As String
Dim FileToCopy As String
Dim NewCopy As String
tmpFilename = txtPicLink.Text
OpenFileDialog1.InitialDirectory() = txtPicLink.Text
OpenFileDialog1.FileName = txtPicLink.Text
OpenFileDialog1.ShowDialog()
txtPicLink.Text = OpenFileDialog1.FileName
If MessageBox.Show("Do you to change picture?", "System Admin", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.No Then
txtPicLink.Text = tmpFilename
Else
Me.PicComponentPartList.Image = Image.FromFile(txtPicLink.Text)
FileToCopy = txtPicLink.Text
NewCopy = "\\sed32\ForShare\" & Me.txtComponentPartListID.Text & ".jpg" 'LOAD IMAGE TO SED32
If System.IO.File.Exists(FileToCopy) = True Then
System.IO.File.Copy(FileToCopy, NewCopy, True)
MsgBox("Load Picture Completed !!")
End If
End If
end sub