Private Sub btnPic_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPic.Click
  Me.OpenFileDialog1.Filter = "Bitmaps|*.bmp|GIFS|*.gif|All files|*.*"
  Me.OpenFileDialog1.ShowDialog()
  Me.pic1.Image = Image.FromFile(Me.OpenFileDialog1.FileName)        
End Sub 'btnPic_Click