Visual Basic 60 Projects With Source Code Exclusive

Private Sub cmdDecrypt_Click() ' XOR is symmetrical. Encrypting an encrypted string with the same key decrypts it. ' So we just swap the text boxes effectively.

Dim nid As NOTIFYICONDATA