Private Sub OnPictureDragDrop(ByVal sender As Object, ByVal e As DragEventArgs)
    Dim target As PictureBox = TryCast(sender, PictureBox)
    If target IsNot Nothing Then
        Dim targetIndex As Integer = FindPictureBoxIndex(target)
        If targetIndex <> -1 Then
            Dim pictureBoxFormat As String = GetType(PictureBox).FullName
            If e.Data.GetDataPresent(pictureBoxFormat) Then
                Dim source As PictureBox = TryCast(e.Data.GetData( _
  pictureBoxFormat), PictureBox)
                
                Dim sourceIndex As Integer = Me.FindPictureBoxIndex(source)
                
                If targetIndex <> -1 Then
                    Me.flowLayoutPanel1.Controls.SetChildIndex(source, _
  targetIndex)
                End If
            End If
        End If
    End If
End Sub

Dim myControl As sender.GetType