> Slider1.Value = CLng(SliderLabelText.Text)
SliderLabelText じゃなくて
SliderLinkText でした…。

まあ SendMessage を使って組んであるものを
今更 DDE に置き換える必要もないですし、蛇足でしたね。


> TBM_SETPOS メッセージ (&H405&) ですね。
参考までに、その他のメッセージも紹介しておきます。
https://docs.microsoft.com/en-us/windows/win32/controls/bumper-trackbar-control-reference-messages


> FindWindowEx(lngWindWnd, 0, "Slider20WndClass", vbNullString)
これは MSCOMCTL.OCX の方の Slider ですね。

http://www.thevbzone.com/modControls.bas