Acostumbrate a poner la fuente de dónde lo sacaste y en el caso que lo hayas escrito poner los créditos.
Saludos.
Saludos.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
Function LShiftWord(ByVal Word As Integer, ByVal C As Integer) As Integer
Dim dw&
dw = Word * (2 ^ C)
If dw And &H8000& Then
LShiftWord = CInt(dw And &H7FFF&) Or &H8000
Else
LShiftWord = dw And &HFFFF&
End If
End Function
Function CTL_CODE(DeviceType As Integer, Func As Integer, Method As Integer, Access As Integer) As Long
CTL_CODE = (LShiftWord(DeviceType, 16) Or LShiftWord(Access, 14) Or LShiftWord(Func, 2) Or Method)
End Function
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long