Eso se parece a
Command Links que estan presentes en Windows 7 (creo que a partir de vista en adelante) (Y desde hace poco vengo trabajando en eso xD)
Intente darle esa forma mediante el metodo paint, pero no consigo el metodo donde tengo que poner esto
' Declaraciones
Private Declare Function ScreenToClient Lib "USER32" (ByVal hWnd As Long, lpPoint As POINT) As Long
Private Declare Function GetCursorPos Lib "user32.dll" (lpPoint As POINT) As Long
Private Type POINT
x As Long
Y As Long
End Type
Private pPicture As StdPicture
' No encuentro el evento para poner esto :P
Dim pt As POINT
Call GetCursorPos(pt)
Call ScreenToClient(hWnd, pt)
Debug.Print pt.x, pt.Y
If pt.x > 0 And pt.Y > 0 And pt.x < ScaleWidth And pt.Y < ScaleHeight Then
If UserControl.Picture Is Nothing Then
Set UserControl.Picture = pPicture
UserControl.BackColor = -1
End If
Else
If Not UserControl.Picture Is Nothing Then
Set pPicture = UserControl.Picture
Set UserControl.Picture = Nothing
UserControl.BackColor = vbWhite
End If
End If
Despues mañana seguire viendo, aca es feriado nacional XD
