Dim lvRet As Long

    lvRet = KDPhone1.GenerateDTMFDigits("!")

این دستور برای فلش کردن