Visual basic de bilgisayarınızın yavaş olup olmadığını öğrenebileceğiniz kodlar


Option Explicit
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Private Sub buton_Click()
If GetSystemMetrics(73) Then
MsgBox ("bilgisayarınız yavaş")
Else
MsgBox ("bilgisayarınız yavaş değil")
End If
End Sub