変数をよびだすには？ (ID:105263)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 解決したようですが、一応。 Private Declare Sub RtlMoveMemory Lib "kernel32" (Destination As Any, Source As Any, ByVal Length As Long) Private Sub Command1_Click() Dim a As Long Call GetPtr(VarPtr(a)) Call Command2_Click MsgBox a End Sub Private Sub Command2_Click() Dim Ptr As Long Dim a As Long a = 100 Ptr = GetPtr(0) If Ptr <> 0 Then RtlMoveMemory ByVal Ptr, a, LenB(a) End Sub Private Function GetPtr(ByVal SetPtr As Long) As Long Static Ptr As Long If SetPtr <> 0 Then Ptr = SetPtr Ptr = 0 End If GetPtr = Ptr End Function こんなプログラム、絶対イヤですけどね。 Command2をクリックした時にもやりたいんなら Command1_Clickのaをstaticにする必要がありますけど。