command button spam

[nohut kafa]

Private Sub CommandButton16_Click()

ilksayı = TextBox1.Text
TextBox1.Text = ""
işlem = "+"

End Sub

command button a 2. kez bastığımda hata veriyor kaç kez basılırsa basılsın 1 kez çalışmasını nasıl sağlarım

 

[Orion1]

Mavi kodu ekleyiniz.

Private Sub CommandButton16_Click()

ilksayı = TextBox1.Text
TextBox1.Text = ""
işlem = "+"
CommandButton16.Enabled = False
End Sub