[911]

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   If sender.Text = "Add" Then
       Add()
       sender.Text = "Update"
   Else
       Update()
       sender.Text = "Add"
   End If
End Sub

Private Sub Add()
   MsgBox("Add")
End Sub

Private Sub Update()
   MsgBox("Update")
End Sub