'
' /////////////////////////////////////////////////////////////
' // Autor: BlackZeroX ( Ortega Avila Miguel Angel ) //
' // //
' // Web: http://InfrAngeluX.Sytes.Net/ //
' // //
' // |-> Pueden Distribuir Este Codigo siempre y cuando //
' // no se eliminen los creditos originales de este codigo //
' // No importando que sea modificado/editado o engrandesido //
' // o achicado, si es en base a este codigo es requerido //
' // el agradacimiento al autor. //
' /////////////////////////////////////////////////////////////
'
 
Option Explicit
 
Private Declare Function IntersectRect Lib "user32" (lpDestRect As Rect, lpSrc1Rect As Rect, lpSrc2Rect As Rect) As Long
Private Type Rect
    left                As Long
    top                 As Long
    Right               As Long
    Bottom              As Long
End Type
Private Declare Function GetCursorPos Lib "user32.dll" (ByRef lpPoint As POINTAPI) As Long
Private Declare Function ScreenToClient Lib "user32.dll" (ByVal hwnd As Long, ByRef lpPoint As POINTAPI) As Long
Private Type POINTAPI
    X                   As Long
    Y                   As Long
End Type
'Private Declare Function GetWindowRect Lib "user32"  (ByVal hwnd As Long, lpRect As Rect) As Long
Dim lBtActual           As Integer
Dim By                  As Long
'Dim Bx                  As Long
Const Anchura           As Long = 80
Const Altura            As Long = 20
Const CantZones         As Integer = 10
Dim PostR()             As Rect
 
Private Sub Form_Load()
Dim i       As Integer
    ReDimPostR (CantZones - 1)
    ScaleMode = 3
 
    For i = 0 To CantZones - 1
        If i > 0 Then
            Load Pic(i)
            Pic(i).Visible = True
        End If
        ' // Estas Son las Regiones
        With PostR(i)
            .left = 25
            If i = 0 Then
                .top = 25
            Else
                .top = PostR(i - 1).Bottom + 25
            End If
            .Right = .left + Anchura
            .Bottom = .top + Altura
        End With
        ' // Posicionamos los Label en las Regiones
        Call PosPic(i)
    Next i
    Timer1.Interval = 20
    Timer1.Enabled = False
End Sub
 
Private Sub pic_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim PT              As POINTAPI
    PosPic Index ' // Actualizamos la region
    GetCursorPos PT
    ScreenToClient hwnd, PT
    By = PT.Y - Pic(Index).top
    'Bx = PT.X - pic(Index).left
    lBtActual = Index
    Timer1.Enabled = True
End Sub
 
Private Sub pic_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
    PosPic Index ' // Actualizamos la region
    Timer1.Enabled = False
End Sub
 
Private Sub Timer1_Timer()
Dim PT                  As POINTAPI
Dim Rect(2)             As Rect
Dim i                   As Integer
Dim AreCambio           As Integer
 
    GetCursorPos PT
    ScreenToClient hwnd, PT
    With Pic(lBtActual)
        .Visible = True
        '.left = PT.X - Bx
        .top = PT.Y - By
        .Visible = True
    End With
    With Rect(2)
        ' // Calculamos el Area de Cambio
        AreCambio = (Altura / 2) - IIf(Altura < 10, 0, 10)
        .top = Pic(lBtActual).top + AreCambio
        .left = Pic(lBtActual).left
        .Right = Pic(lBtActual).left + Pic(lBtActual).Width
        .Bottom = Pic(lBtActual).top + Pic(lBtActual).Height - AreCambio
    End With
    For i = 0 To CantZones - 1
        If lBtActual <> i And _
            IntersectRect(Rect(0), Rect(2), PostR(i)) Then
            Rect(0) = PostR(lBtActual) ' // Hacemos un Respaldo
            PostR(lBtActual) = PostR(i)
            PostR(i) = Rect(0)
            Call PosPic(i)
            Call PosPic(lBtActual)
            Exit For
        End If
    Next i
End Sub
 
Private Sub PosPic(ByVal i As Integer)
    With Pic(i)
        .left = PostR(i).left
        .BackColor = RGB(255 / (i + 1), 255 / (i + 1), 255 / (i + 1))
        If i = 0 Then
            .top = PostR(i).top
        Else
            .top = PostR(i).top
            .top = .top
        End If
        .Width = PostR(i).Right - PostR(i).left
        .Height = PostR(i).Bottom - PostR(i).top
    End With
End Sub