異なるフォームでのデータの共有をするには？ (ID:87529)

名前

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

本文 パブリック変数を利用してみては？ '---標準モジュール--- Public pRxData As Long '---WinSock1--- Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) pRxData = bytesTotal End Sub '---Winsock2--- Private Sub ShowRxData() Call MsgBox(CStr(pRxData)) End Sub こんな感じ。