Enum CmdTextPotion
A_CENTER = &H300&
A_TOP = &H400&
A_TOPLEFT = &H500&
A_TOPRIGHT = &H600&
A_BOTTOM = &H800&
A_BOTTOMLEFT = &H900&
A_BOTTOMRIGHT = &HA00&
A_LEFT = &H100&
A_RIGHT = &H200&
End Enum
Private Const GWL_STYLE& = (-16)
Private Declare Function GetWindowLong& Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long)
Private Declare Function SetWindowLong& Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long)
Private Sub Command1_Click()
Dim tmpValue&
Dim Align&
Dim ret&
fAlignment& = CmdTextPotion.A_BOTTOMRIGHT
tmpValue& = GetWindowLong&(Command1.hwnd, GWL_STYLE) And Not BS_RIGHT
ret& = SetWindowLong&(Command1.hwnd, GWL_STYLE, tmpValue& Or fAlignment&)
Command1.Refresh
End Sub

Dim dblRet As Double
dblRet = Shell("Explorer C:\", vbNormalFocus)

class Animal{

function __construct()

{

echo 'Animal';

}

}

$animal = new Animal();

// output : Animal

class DB{

…..

function __destruct()

{

$db->disconnect();

}

…..

}

$db = new DB();

unset($db);