投稿者 ひでぽん  (社会人) 投稿日時 2021/2/10 10:27:57
魔界の仮面弁士さま

回答ありがとうございます。
>FormA と FormB が共に自作なら、プロセス間通信のために
>DDE を使うという選択肢もあります。
DDEについては共に変更可能なので試してみようと思います。

後SendMessageの方もご教示頂きました方法で動作確認できました。これでとりあえず行けそうです。
ご教示ありがとうございました。
以下に修正したソースのせておきます。

Private Const TBM_SETPOS As Long = &H405&

'FormA.exeのSlider1を操作
Private Sub Command2_Click()
    Dim lngWindWnd As Long
    Dim lngBtnWnd1 As Long
  
    lngWindWnd = FindWindow(vbNullString, "FormA")
    lngBtnWnd1 = FindWindowEx(lngWindWnd, 0, "Slider20WndClass", vbNullString)
    Call SendMessage(lngBtnWnd1, TBM_SETPOS, 1&, ByVal 5)
End Sub

解決しましたのでこれで完了とさせて頂きます。