Hola Hay errores en este tutorial se requiere de los APIS
x ejemplo en estas lineas:
temp = DestroyWindow(hwdc)
hwdc = capCreateCaptureWindow("CapWindow", ws_child Or ws_visible, _
0, 0, 320, 240, Picture1.hwnd, 0)
y tambien este argumento esta incorrecto:
'función para obtener la memoria ram
Public Function GetRamSize() As String
Dim RamStats As MEMORYSTATUS
GlobalMemoryStatus RamStats
GetRamSize = Round((RamStats.dwTotalPhys / 1024) / 1024) + 1
End Function
Ami me da error aqui:
Dim RamStats As MEMORYSTATUS
El MEMORYSTATUS No esta Definido...
