Private Sub PictureBox1_DragEnter(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DragEventArgs) Handles PictureBox1.DragEnter
        DragEnterSub(e)
    End Sub
 
    Private Sub PictureBox1_DragDrop(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DragEventArgs) Handles PictureBox1.DragDrop
        geticon((CType(e.Data.GetData(DataFormats.FileDrop), Array).GetValue( _
        0).ToString), 1, PictureBox1)
        DragDropSub(e, 1)
    End Sub
 
    Private Sub PictureBox1_mouseEnter(ByVal sender As System.Object, ByVal e _
      As System.EventArgs) Handles PictureBox1.MouseEnter
        PictureBox1.BorderStyle = BorderStyle.FixedSingle
    End Sub