Visual Basic

Private Sub RightClickContextMenuStrip_Opened(ByVal sender As Object, ByVal e As System.EventArgs) Handles RightClickContextMenuStrip.Opened
    Dim cms As ContextMenuStrip
    Dim TempTextBox As TextBox

    cms = CType(sender, ContextMenuStrip)

    If TypeOf (cms.SourceControl) Is TextBox Then
        TempTextBox = CType(cms.SourceControl, TextBox)
        If Not String.IsNullOrEmpty(TempTextBox.SelectedText) AndAlso TempTextBox.ReadOnly = False Then
            mnuCut.Enabled = True
            mnuCopy.Enabled = True
        Else
            mnuCut.Enabled = False
            mnuCopy.Enabled = False
        End If

        If Clipboard.ContainsText Then
            mnuPaste.Enabled = True
        Else
            mnuPaste.Enabled = False
        End If

        If My.Settings.AutoText Is Nothing OrElse My.Settings.AutoText.Count < 1 Then
            mnuRightClickAutoText.Enabled = False
        Else
            mnuRightClickAutoText.DropDownItems.Clear()
            For Each item As String In My.Settings.AutoText
                Dim AutoTextItem As ToolStripItem
                AutoTextItem = mnuRightClickAutoText.DropDownItems.Add(item)
                AddHandler AutoTextItem.Click, AddressOf AutoText_Click
            Next
        End If
    End If
End Sub

Private Sub AutoText_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim cms As ContextMenuStrip
        Dim dpm As ToolStripDropDownMenu
        Dim Item As ToolStripItem
        Dim TempTextBox As TextBox
        Dim selectionIndex As Integer

        Item = CType(sender, ToolStripItem)
        cms = CType(Item.OwnerItem.Owner, ContextMenuStrip)

        If TypeOf (cms.SourceControl) Is TextBox Then
            TempTextBox = CType(cms.SourceControl, TextBox)
            selectionIndex = TempTextBox.SelectionStart
            TempTextBox.Text = TempTextBox.Text.Insert(selectionIndex, Item.Text)
            TempTextBox.SelectionStart = selectionIndex + Item.Text.Length
        End If

    End Sub

    Private Const ALG_CLASS_HASH As Long = 32768             ' (4 < 13)
    Private Const ALG_TYPE_ANY As Long = 0
    Private Const ALG_SID_MD5 As Long = 3
    Private Const CALG_MD5 As Long = ALG_CLASS_HASH Or ALG_TYPE_ANY Or ALG_SID_MD5

    ....

    Private Declare Function CryptAcquireContext Lib "advapi32.dll" Alias "CryptAcquireContextA" _
    (ByRef phProv As Long, _
    ByVal pszContainer As String, _
    ByVal pszProvider As String, _
    ByVal dwProvType As Long, _
    ByVal dwFlags As Long) As Long

Private Declare Function CryptCreateHash Lib "advapi32.dll" _
    (ByVal hProv As Long, _
    ByVal algID As Long, _
    ByVal hKey As Long, _
    ByVal dwFlags As Long, _
    ByRef phHash As Long) As Long
    ...

    'CryptAcquireContext works fine
    lResult = CryptAcquireContext(m_lProvider, sKeyRoot, CRYPTO_PROVIDER, PROV_RSA_FULL, 0)
    If lResult = 0 Then
        lResult = CryptAcquireContext(m_lProvider, sKeyRoot, CRYPTO_PROVIDER, PROV_RSA_FULL, CRYPT_NEWKEYSET)
        If lResult = 0 Then
            MsgBox(ERROR_AQUIRING_CONTEXT)
        End If
    End If


    'Now this is where I get zero
    ' Create a handle to a hash object  using the MD5 algorithm
    lResult = CryptCreateHash(m_lProvider, CALG_MD5, 0, 0, lHash)
    If lResult = 0 Then
        Dim a As Long = Err.LastDllError
        MsgBox(ERROR_CREATING_HASH)
        Return ""
    End If