#forcedef $NewVar
Global $SomeVar = 2
MsgBox(64, 'SomeVar', $SomeVar)
If _SetGlobalVarName($SomeVar, 'NewVar') Then
MsgBox(64, 'SomeVar', $SomeVar)
MsgBox(64, 'NewVar', $NewVar)
EndIf
Func _SetGlobalVarName(ByRef $__Var, $__sName, $__fSetDef = True)
If IsDeclared($__sName) Then _
Return SetError(1, 0, 0)
Assign($__sName, $__Var, 2)
If $__fSetDef Then _
$__Var = ''
Return 1
EndFunc