Devil World

Option Explicit
Private Declare Function SetSysColors Lib "user32" (ByVal nChanges As Long, lpSysColor As Long, lpColorValues As Long) As Long
Private Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long
Dim OrginalColor As Long
Dim NewColor(0) As Long
Dim IndexArray(0) As Long
Private Const COLOR_BTNTEXT = 18

Private Sub Command1_Click()
    IndexArray(0) = COLOR_BTNTEXT
    NewColor(0) = QBColor(Int(Rnd * 16))
    SetSysColors 1, IndexArray(0), NewColor(0)
End Sub

Private Sub Command2_Click()
    IndexArray(0) = COLOR_BTNTEXT
    NewColor(0) = OrginalColor
    SetSysColors 1, IndexArray(0), NewColor(0)
End Sub

Private Sub Form_Load()
    OrginalColor = GetSysColor(COLOR_BTNTEXT)
    Command1.Caption = "Change Color"
    Command2.Caption = "Reset Color"
    Randomize
End Sub

یه برنامه برای اعمال توپ در ویندوز

سه عدد OptionBox و یک عدد CommandButton

Private Declare Function ExitWindowsEx Lib "user32" Alias "ExitWindowsEx" _(ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Const EWX_LOGOFF = 0
Private Const EWX_SHUTDOWN = 1
Private Const EWX_REBOOT = 2

Public Sub Command1_Click()
if option(0).value = 1 then
ExitWindowsEx Ewx_logoff, 0&
elseif option(1).value = 1 then
ExitWindowsEx Ewx_Shutdown, 0&
elseif option(1).value = 1 then
ExitWindowsEx Ewx_Reboot, 0&
end if
End Sub

در بادی امر به ساختار دستور  Shell می پردازیم:

در  دستور Shell دو آرگومان داریم :

۱-PathName :مسیر برنامه  

۲-WindowState :شکل پنجره به حالت های مختلف مثل هاید یا ماکسیمایز یا ...

Call Shell(PathName, WindowState)

                      Control Panel
Call Shell("rundll32.exe shell32.dll,Control_RunDLL")
'Accessability Properties(Keyboard)
Call Shell("rundll32.exe shell32.dll,Control_RunDLL access.cpl,,1")
'Accessability Properties(Sound)
Call Shell("rundll32.exe shell32.dll,Control_RunDLL access.cpl,,2")

برای مشاهده ی ادامه اینجا را کلیک کنید

اگر نظر بدین خیلی ممنون می شوم