妳這個問題出在X必須定義為靜態變量才可以。因為X在不同的子進程中是不斷被重新定義的。妳可以在所有進程之外
Dim x as single
private sub 1
xxxxxx
end sub
private sub 2
yyyyy