[發問] 如何利用ToggleButton開關控制UserForm表單內的按鈕

av8d

利用ToggleButton開關控制UserForm表單內的按鈕

當開啟的時候
Private Sub CommandButton10_Click()
    If TextBox1.Value <> "0000" Then
        TextBox1 = ""
    Else
        TextBox1 = ""
        Me.OLEObjects.Visible = True
        Sheets("Data").Select
        Call Music
    End If   
End Sub

當關閉的時候
Private Sub CommandButton10_Click()
    If TextBox1.Value <> "0000" Then
        TextBox1 = ""
    Else
        TextBox1 = ""
        Me.OLEObjects.Visible = True
        'Sheets("Data").Select
        'Call Music
    End If   
End Sub