Private Sub Label1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Me.Label1.Caption = 0 Then Me.TextBox1.Visible = False
End Sub
Private Sub UserForm_Initialize()
Me.TextBox1.Visible = True
End Sub
Private Sub Label1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Val(Me.Label1.Caption) = 0 Then Me.TextBox1.Enabled = False
End Sub
Private Sub UserForm_Initialize()
Me.TextBox1.Enabled = True
End Sub