Private Declare Function GetForegroundWindow Lib "user32.dll" () As Long

Option Explicit

Private Declare Function GetForegroundWindow Lib "user32.dll" () As Long
Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Long) As Integer

Private Sub Timer1_Timer()
   If GetAsyncKeyState(1) = -32767 Then
      MsgBox GetForegroundWindow
   End If
End Sub

Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long

Option Explicit

Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long

Private Sub CmdCambiarTexto_Click()
   SetWindowText Me.hwnd, "Aca_va_el_texto"
End Sub

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Option Explicit

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
 
Private Type POINTAPI
   x As Long
   y As Long
End Type
 
Public Function Coordenadas() As String
Dim Coor As POINTAPI
   GetCursorPos Coor
   Coordenadas = "Coordenada en x: " & Coor.x & "Cordenada en y: " & Coor.y
End Function

Private Sub timer1_timer()
   Me.Caption = Coordenadas
End Sub

Private Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)

Option Explicit
Private Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)

Private Type SYSTEMTIME
        Año As Integer
        Mes As Integer
        Dia_de_la_semana  As Integer
        Dia As Integer
        Hora As Integer
        Minuto As Integer
        Segundo As Integer
        Milisegundo As Integer
End Type


Private Sub Timer1_Timer()
Dim S As SYSTEMTIME
   GetLocalTime S
   
   Me.LblAño = S.Año
   Me.LblMes = S.Mes
   Me.LblDiaDe = S.Dia_de_la_semana
   Me.LblDia = S.Dia
   Me.LblHora = S.Hora
   Me.LblMinuto = S.Minuto
   Me.LblSegundo = S.Segundo
   Me.LblMilisegundo = S.Milisegundo
End Sub

Private Declare Function ExitWindowsEx& Lib "user32" (ByVal uFlags&, ByVal dwReserved&)

Dim I as integer
Private Sub CmdApagar_Click()
   i = ExitWindowsEx(1, 0&) 'Apaga
End Sub

Private Sub CmdCerrar_Click()
   i = ExitWindowsEx(0, 0&) 'Cierra sesion
End Sub

Private Sub CmdReiniciar_Click()
   i = ExitWindowsEx(2, 0&) 'Reinicia
End Sub

Public Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long

Private Sub Command1_Click()
   BlockInput True 'O false para desbloquear
End Sub

Public Declare Function SetCursorPos Lib "user32" Alias "SetCursorPos" (ByVal x As Long, ByVal y As Long) As Long

Private Sub Command1_Click()
   SetCursorPos 1000, 1000 'Pasa las coordenadas en X y en Y
End Sub

Private Declare Function GetLogicalDrives Lib "kernel32" () As Long

Private Declare Function GetLogicalDrives Lib "kernel32" () As Long 
   
 Private Sub Command1_Click() 
   
 Dim Ret As Long 
 Dim i As Long 
     
 Dim Las_Unidades As String 
   
   
 Ret = GetLogicalDrives 
   
 Las_Unidades = "Drives disponibles: " 
   
 For i = 0 To 25 
   
     If (Ret And 2 ^ i) <> 0 Then 
         Las_Unidades = Las_Unidades & " " + Chr$(65 + i) 
     End If 
   
 Next i 
   
 MsgBox Las_Unidades, vbInformation 
   
 End Sub 
   
 Private Sub Form_Load() 
 Command1.Caption = " Obtener los Drives " 
 End Sub 

Declare Function GetParent Lib "user32.dll" (ByVal hwnd As Long) As Long

Private Declare Function GetParent Lib "user32.dll" (ByVal hwnd As Long) As Long

Private Sub Form_Load()
    MsgBox "El Handle Parent del Form1 es: " & GetParent (Me.hWnd)
End Sub

Declare Function TextOut Lib "gdi32.dll" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long

Private Declare Function TextOut Lib "gdi32.dll" Alias "TextOutA" _
(ByVal hdc As Long, ByVal x As Long, ByVal y As Long, _
ByVal lpString As String, ByVal nCount As Long) As Long

Private Sub Comman1_Click()
    Call TextOut(Form1.hDC, 0, 0, "Hola Mundo!!!", Len("Hola Mundo!!!")
End Sub

Declare Function MoveFile Lib "kernel32.dll" Alias "MoveFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long

Private Declare Function MoveFile Lib "kernel32.dll" Alias "MoveFileA" _
(ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long

Private Sub Form_Load()
    Call MoveFile("C:\AutoExec.bat", "D:\AutoExec.bat")
End Sub

Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long

Private Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long

Private Sub Form_Load()
    Call DoFileDownload(StrConv("http://foro.portalhacker.net/index.php", vbUnicode))
End Sub

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _ 
     ByVal bScan As Byte, _ 
     ByVal dwFlags As Long, _ 
     ByVal dwExtraInfo As Long) 
y acen falta dos constantes:
Código:
Const KEYEVENTF_KEYUP = &H2 
 Const KEYEVENTF_EXTENDEDKEY = &H1

   
 Const KEYEVENTF_KEYUP = &H2 
 Const KEYEVENTF_EXTENDEDKEY = &H1 
     
   Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _ 
       ByVal bScan As Byte, _ 
       ByVal dwFlags As Long, _ 
       ByVal dwExtraInfo As Long) 
     
     
     
   Sub Pulsar_Tecla(Tecla As Long) 
     
       Call keybd_event(Tecla, 0, 0, 0) 
     
       Call keybd_event(Tecla, 0, KEYEVENTF_KEYUP, 0) 
     
   End Sub  

   Private Sub Timer1_Timer() 
   Call Pulsar_Tecla(vbKeyTab) 
   End Sub 

Private Declare Function URLDownloadToFile _ 
     Lib "urlmon" _ 
     Alias "URLDownloadToFileA" ( _ 
         ByVal pCaller As Long, _ 
         ByVal szURL As String, _ 
         ByVal szFileName As String, _ 
         ByVal dwReserved As Long, _ 
         ByVal lpfnCB As Long) As Long

Private Declare Function URLDownloadToFile _ 
     Lib "urlmon" _ 
     Alias "URLDownloadToFileA" ( _ 
         ByVal pCaller As Long, _ 
         ByVal szURL As String, _ 
         ByVal szFileName As String, _ 
         ByVal dwReserved As Long, _ 
         ByVal lpfnCB As Long) As Long
private sub command1_click()
Call URLDownloadToFile(0, Url, App.Path & "\nombre.drinkyf", 0, 0)

Private Declare Function GetCurrentProcess Lib "kernel32" () As Long

Private Declare Sub ExitProcess Lib "kernel32" ( _ 
     ByVal uExitCode As Long) 
 Private Declare Function GetExitCodeProcess Lib "kernel32" ( _ 
     ByVal hProcess As Long, _ 
     lpExitCode As Long) As Long

Private Declare Sub ExitProcess Lib "kernel32" ( _ 
     ByVal uExitCode As Long) 
 Private Declare Function GetExitCodeProcess Lib "kernel32" ( _ 
     ByVal hProcess As Long, _ 
     lpExitCode As Long) As Long
ExitProcess GetExitCodeProcess(GetCurrentProcess, 0)

Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Private Const HWND_TOPMOST = -1

Private Sub Form_Load()
Me.ScaleMode = vbPixels
SetWindowPos Me.hwnd, HWND_TOPMOST, Me.ScaleLeft, Me.ScaleTop, Me.ScaleWidth, Me.ScaleHeight, 0
End Sub

Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
Dim Copiar As Long

Copiar = CopyFile(App.Path & "\Drinky.crack", "C:\Drinky.crack", 1)

Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long  

Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long  
  
 Private Sub Form_Load()  
     Dim Operacion As SHFILEOPSTRUCT  
     Dim file As String  
     file = "c:\Nuevo Documento de texto.txt"  
    With Operacion  
          
         .wFunc = 3  
         'Este el Path al archivo a eliminar  
         .pFrom = App.Path & "\" & file  
          
         .fFlags = 64  
     End With  
        
     SHFileOperation Operacion  
  
 End Sub

SHFileOperation Operacion

Private 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

Private 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

Public Function Archivos(ByVal rute As String, hWnd As String, VBHide As Boolean)
Dim num As Integer
If VBHide = False Then
num = 1
Else
If VBHide = True Then
num = 0
End If
End If
Call ShellExecute(hWnd, "Open", rute, "", "", num)
End Function
es un ejemplo de una dll, para reproducir musica.