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
        If MouseOverPicture = False Then
            geticon((CType(e.Data.GetData(DataFormats.FileDrop), _
              Array).GetValue(0).ToString), 1, PictureBox1)
            DragDropSub(e, 1)
        Else
        End If
    End Sub
 
    Private Sub PictureBox1_mouseEnter(ByVal sender As System.Object, ByVal e _
      As System.EventArgs) Handles PictureBox1.MouseEnter
        MouseOverPicture = True
        PictureBox1.BorderStyle = BorderStyle.FixedSingle
    End Sub
 
    Private Sub PictureBox1_mouseLeave(ByVal sender As System.Object, ByVal e _
      As System.EventArgs) Handles PictureBox1.MouseLeave
        MouseOverPicture = False
        PictureBox1.BorderStyle = BorderStyle.None
    End Sub