Private Sub cmdCheckReg_Click()
  If ProgCode & UserCode(txtUserName.Text) = txtRegKey.Text Then
    bIsReg = True
    SaveSetting "MyApp", "Settings", "IsReg", "yes"
    MsgBox "Programm wurde registriert", vbInformation Or vbOKOnly
  Else
    MsgBox "Programm wurde nicht registriert", vbExclamation Or vbOKOnly
  End If
 
  Unload Me
End Sub

-------------------------
HELP ME :>