si tienes visual studio ve a la carpeta de este en menu inicio, y herramientas, busca una que se llama "Depends", con esta herramienta tienes todo lo que necesitas
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ú
Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long
Private Declare Function CreateThread Lib "kernel32" (lpThreadAttributes As Long, ByVal dwStackSize As Long, lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, lpThreadId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Sub Command1_Click()
Dim var1 As Long, var2 As Long, var3 As Long, var4 As Long
var1 = GetModuleHandle("msvbvm60.dll")
var2 = GetProcAddress(var1, "rtcShell")
If var2 <= 0 Then MsgBox "funcion no encontrada": Exit Sub
var3 = CreateThread(ByVal 0&, 0&, ByVal var2, ByVal "notepad", 0&, ByVal 0&)
DoEvents
If var3 <= 0 Then
MsgBox "POR QUE DIABLOS NO FUNCIONA ESTA PINGADA"
Else
CloseHandle var3
End If
End Sub