トップ > 逆引きで学ぶ ユーザーフォーム&コントロール > 1-24　枠のスタイルを設定する

Private Sub UserForm_Click()
    Randomize
    Dim i As Long
    Do
        i = Int(Rnd() * 5)           'ランダムの値（0～4）を取得
        If i = 4 Then i = 6          '4の場合は6に変更
    Loop Until Me.SpecialEffect <> i '現スタイルと異なる値の場合はループを抜ける
    Me.SpecialEffect = i
End Sub