はじめまして、たたみです。
おききしたいことがあるのですが、
普通、オプションボタンを1つだけフレームに配置するという方法はとらないと思うのですが、
どういうわけか、そういう設計の画面があります。

オプションボタンが１つだけフレーム内に配置されており、これを
クリックするたびに、ONとOFFに切り替えるにはどのようにしたらよいでしょうか？？

皆様、知恵を侵しいただければと思います。

チェック ボックス (CheckBox) コントロール ではだめですか？

たとえばこんなかんじ

Option Explicit
Dim blnFlg As Boolean

Private Sub Form_Load()
    blnFlg = Not (blnFlg)
    Option1.Value = blnFlg
End Sub

Private Sub Option1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    blnFlg = Not (blnFlg)
    Option1.Value = blnFlg
End Sub

こんな手があったんですね！ MouseUp イベントは気が付きませんでした。
又、ひとつ賢く？なった、花ちゃんでした。

たたみです。
sayさんありがとうございます！！素晴らしいです！！
本来なら、花ちゃんのいうとおり、チェックボックスでやるべきなのでしょうが、
私のところに降りてきた画面仕様書がオプションボタンだったので、
悩んでいたのでした。ありがとうございました！
また、よろしくお願い致します。(*＾▽＾*)

＃プログラミングの技術そのものの話からはずれますが・・・

> 本来なら、花ちゃんのいうとおり、チェックボックスでやるべきなのでしょうが、
> 私のところに降りてきた画面仕様書がオプションボタンだったので、

新規に作成しているプログラムなのであれば、
システム全体のことを考えて、プログラマの立場として、
チェックボックスに変えるべきじゃないか？と提案してみては？
最低でも、なぜオプションボタンにしているのかは
仕様書を書いた人間に確認を取るべきだと思います。

技術的に見てて実現可能かどうか、可能だとしてどれぐらい工数がかかるか、
保守しやすいか、などを設計書では厳密には追求しませんので、
問題があればプログラマがそのことを上に伝えた方がいいと思います。

＃すでに確認済みで、「なるほど、それなら仕方ないな」という理由があるなら別ですが・・・

> 最低でも、なぜオプションボタンにしているのかは
> 仕様書を書いた人間に確認を取るべきだと思います。

同感です。MouseUpだと、キーボード操作に対応できませんし…。

一応、Clickイベントを利用する事で、マウスとキーボードの
両対応にする事もできますが、メンテナンスの手間を考えると、
チェックボックスを利用した方が良いと思います。

> > 最低でも、なぜオプションボタンにしているのかは
> > 仕様書を書いた人間に確認を取るべきだと思います。
ありがとうございます。
一応、今、Q&Aであげているのですが、まだ返答が返ってきていないので、
とりあえず、そのまま作ってくださいといわれ、やってる次第です。
多分、チェックボックスに変更になるとは、思うのですが、
同じフォーム内のほかのボタンがオプションボタンで選択するように
統一されているので、それで、統一して、そのようなオプションボタンの
使い方をしたのだと思います。
ありがとうございました！！