Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click 
   zuausführen()
   computerzug()
   berechnungen()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click 
   zuausführen()
   computerzug()
   berechnungen()
   Button1.Enabled = false
   meinTimer.start
End Sub
 
Private Sub Timer_Tick(....)
   Button1.Enabled = true
End Sub