|
Public Declare Function pBGetFreeSystemResources _
Lib "rsrc32.dll" Alias "_MyGetFreeSystemResources32@4" _ (ByVal iResType As Integer) As Integer Public Function SystemResources() As String GDI$ = CStr(pBGetFreeSystemResources(1)) Sys$ = CStr(pBGetFreeSystemResources(0)) User$ = CStr(pBGetFreeSystemResources(2)) SystemResources$ = "GDI: " + GDI$ + "%" SystemResources$ = SystemResources$ + vbCrLf + "System: " _ + Sys$ + "%" SystemResources$ = SystemResources$ + vbCrLf + "User: " _ + User$ + "%" End Function 'Con una MessageBox usare... MsgBox SystemResources$, vbSystemModal, "System Resources" 'Con una TextBox usare... Text1 = SystemResources$ |