質問の意図した内容にあった回答になっているか分からないけど、こういう事なのかな？ 
 
Public Class Form1 
 
　　Private isProc As Boolean = False 
 
　　Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
　　　　If Not isProc Then 
　　　　　　Button1.Enabled = False 
　　　　　　isProc = True 
 
　　　　　　System.Threading.Thread.Sleep(3000) 
 
　　　　　　Button1.Enabled = True 
　　　　End If 
　　End Sub 
 
End Class