If TypeOf e.Exception Is IndexOutOfRangeException Then
                e.ExitApplication = False
            End If

 
Dim A As Integer = 5
Dim B As Integer = 1
 
B -= 1
 
Dim C As Integer = A / B 'Error'
 
'Desde aquí se corta el método'
 
MessageBox.Show(C)
 
 

Dim I As New FileInfo(Objetos(0))

    Private Sub TextBox1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles foldertextbox.DragDrop
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            Dim Objetos As String() = e.Data.GetData(DataFormats.FileDrop)
 
            Dim attributes = Objetos(0)
            If ((attributes And FileAttributes.Directory) = FileAttributes.Directory) Then
                MsgBox("es un dir")
            Else
                MsgBox("no es un dir")
            End If

(Info.Attributes And IO.FileAttributes.Directory) = IO.FileAttributes.Directory

    Private Sub TextBox1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox1.DragDrop
 
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
 
            Dim Objetos As String() = e.Data.GetData(DataFormats.FileDrop)
 
            TextBox1.Text = Objetos(0)
 
        End If
 
    End Sub
 
    Private Sub TextBox1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox1.DragEnter
 
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            e.Effect = DragDropEffects.All
        End If
 
    End Sub

PADRE.Controls.Find("Ejemplo", True)
 

Imports System.Drawing.Drawing2D
 
Public Class Form1
 
    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
 
        Dim Imagen As Image = Image.FromFile("C:\Ejemplo.JPG")
 
        Dim Forma As New GraphicsPath
 
        Forma.AddPolygon(New PointF() {New PointF(10, 20), New PointF(250, 35), New PointF(150, 200)})
 
        Dim Poligono As New Region(Forma)
 
        Dim Origen As New Point(10, 10), Destino As New Point(20, 20)
        Dim RectanguloOrigen As RectangleF, RectanguloDestino As RectangleF
 
        For Each Rectangulo As RectangleF In Poligono.GetRegionScans(New Matrix)
            RectanguloOrigen = Rectangulo : RectanguloOrigen.Offset(Origen)
            RectanguloDestino = Rectangulo : RectanguloDestino.Offset(Destino)
            e.Graphics.DrawImage(Imagen, RectanguloOrigen, RectanguloDestino, GraphicsUnit.Pixel)
        Next
 
    End Sub
 
End Class