Visual Basic

Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click<br />
        With Me<br />
            If .radAdd10.Checked = True Then<br />
<br />
                .ProductTableAdapter.UpdatePrice(1.1, .Category_IDTextBox.Text)<br />
                .ProductTableAdapter.Fill(.ComputerDataSet.Product)<br />
            Else<br />
                .ProductTableAdapter.UpdatePrice(0.9, .Category_IDTextBox.Text)<br />
                .ProductTableAdapter.Fill(.ComputerDataSet.Product)<br />
            End If<br />
        End With<br />
    End Sub 

Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click<br />
     ClickCount += 1<br />
     If ClickCount = 1 Then<br />
         MsgBox("Please enter your old password", MsgBoxStyle.Information)<br />
     ElseIf ClickCount = 2 Then<br />
         If txtPassWord.Text = txtPassWord.Tag Then<br />
             MsgBox("Please enter your new password", MsgBoxStyle.Information)<br />
             txtPassWord.Tag = Nothing : txtPassWord.Focus() : txtPassWord.Text = ""<br />
         Else<br />
             MsgBox("Wrond", MsgBoxStyle.Information)<br />
         End If<br />
     ElseIf ClickCount = 3 Then<br />
         txtPassWord.Tag = txtPassWord.Text<br />
         MsgBox("Password changed", MsgBoxStyle.Information)<br />
     End If<br />
 End Sub