Private Sub SliderLinkText_Change() Slider1.Value = CLng(SliderLabelText.Text) End Sub
Private Sub Form_Load() TextBox1.Text = "5" 'Slider に渡したい値 Text1.LinkTopic = "ProjectA|HideponForm" Text1.LinkItem = "SliderLinkText" End Sub Private Sub Command1_Click() '現在の Text1.Text の値を FormA.exe に送り込む Text1.LinkMode = vbLinkManual Text1.LinkPoke Text1.LinkMode = vbLinkNone End Sub