' Code originally published on:
' http://word.mvps.org/faqs/macrosvba/MixedDocProps.htm
 
 
Public Sub WriteProp(sPropName As String, ByVal sValue As String, _
      Optional lType As Long = msoPropertyTypeString)
 
' In the above declaration,
' "Optional lType As Long = msoPropertyTypeString" means
' that if the Document Property's Type is Text, we don't need
' to include the lType argument when we call the procedure;
' but if it's any other Prpperty Type (e.g. date) then we do
 
Dim bCustom As Boolean
 
  On Error GoTo ErrHandlerWriteProp
 
  'Try to write the value sValue to the custom documentproperties
  'If the customdocumentproperty does not exists, an error will occur
  'and the code in the errorhandler will run
  ActiveDocument.BuiltInDocumentProperties(sPropName).Value = sValue
  'Quit this routine
  Exit Sub
 
Proceed:
  'We know now that the property is not a builtin documentproperty,
  'but a custom documentproperty, so bCustom = True
  bCustom = True
 
Custom:
  'Try to set the value for the customproperty sPropName to sValue
  'An error will occur if the documentproperty doesn't exist yet
  'and the code in the errorhandler will take over
  ActiveDocument.CustomDocumentProperties(sPropName).Value = sValue
  Exit Sub
 
AddProp:
  'We came here from the errorhandler, so know we know that
  'property sPropName is not a built-in property and that there's
  'no custom property with this name
  'Add it
  On Error Resume Next
  ActiveDocument.CustomDocumentProperties.Add Name:=sPropName, _
    LinkToContent:=False, Type:=lType, Value:=sValue
 
  If Err Then
    'If we still get an error, the value isn't valid for the Property Type
    'e,g an invalid date was used
    Debug.Print "The Property " & Chr(34) & _
     sPropName & Chr(34) & " couldn't be written, because " & _
     Chr(34) & sValue & Chr(34) & _
     " is not a valid value for the property type"
  End If
 
  Exit Sub
 
ErrHandlerWriteProp:
  Select Case Err
    Case Else
   'Clear the error
   Err.Clear
   'bCustom is a boolean variable, if the code jumps to this
   'errorhandler for the first time, the value for bCustom is False
   If Not bCustom Then
     'Continue with the code after the label Proceed
     Resume Proceed
   Else
     'The errorhandler was executed before because the value for
     'the variable bCustom is True, therefor we know that the
     'customdocumentproperty did not exist yet, jump to AddProp,
     'where the property will be made
     Resume AddProp
   End If
  End Select
 
End Sub
 
Public Sub FillDocument()
 
Dim Var_Sender_Name, Var_Recipient_Name, Var_Customer_Number, _
Var_Location  As String
 
' This is the part to be edited
Var_Sender_Name = "Mr. Axel Rose"
Var_Recipient_Name = "Mr.John Bon Jovi"
Var_Customer_Number = "ANYTHING0037857"
Var_Location = "Here we go, the first line," & vbCrLf & _
"This is the second line," & vbCrLf & "This is a third line."
 
' Add as many calls as the properties you have
Call WriteProp(sPropName:="Sender_Name", sValue:=Var_Sender_Name, _
lType:=msoPropertyTypeString)
Call WriteProp(sPropName:="Recipient_Name", sValue:=Var_Recipient_Name, _
lType:=msoPropertyTypeString)
Call WriteProp(sPropName:="Customer_Number", sValue:=Var_Customer_Number, _
lType:=msoPropertyTypeString)
Call WriteProp(sPropName:="Location", sValue:=Var_Location, _
lType:=msoPropertyTypeString)
 
End Sub

    Private Sub cmd_chlank_Click(ByVal sender As System.Object,_
    ByVal e As System.EventArgs) Handles cmd_chlank.Click
        If Source.Text <> "" Then
            Dim Sep As String = " =<>()%$#!*^[]{}/\'" + vbCrLf + """"
            Dim SS As String = Source.Text
            Dim DT As String = ""
            Dim LeftStr As String = ""
            Dim RightStr As String = ""
            Dim P As Integer = 1
            Dim Pos, PLeft, PRight As Integer
            Dim DetectedMail As String = ""
            Dim MailsCount As Integer = 0
            Destination.Text = ""
            Do
                Pos = InStr(P, SS, "@")
                If Pos = 0 Then GoTo TakeMeOut
                PLeft = Pos
                PRight = Pos
                Do
                    PLeft = PLeft - 1
                    If Sep.Contains(SS.Substring(PLeft, 1)) Then
                        LeftStr = SS.Substring(PLeft + 1, Pos - PLeft - 2)
                        PLeft = 0
                    Else
                        If PLeft = 0 Then LeftStr = SS.Substring(0, Pos - 1)
                    End If
                Loop Until PLeft = 0
                Do
                    PRight = PRight + 1
                    If PRight = SS.Length Then
                        RightStr = SS.Substring(Pos, PRight - Pos)
                        DetectedMail = LeftStr + "@" + RightStr
                        If InStr(DT, DetectedMail) = 0 Then
                            DT = DT + DetectedMail + vbCrLf
                            MailsCount += 1
                        End If
                        GoTo TakeMeOut
                    End If
                    If Sep.Contains(SS.Substring(PRight, 1)) Then
                        RightStr = SS.Substring(Pos, PRight - Pos)
                        P = PRight + 1
                        PRight = 0
                    End If
                Loop Until PRight = 0
                DetectedMail = LeftStr + "@" + RightStr
                If InStr(DT, DetectedMail) = 0 Then
                    DT = DT + DetectedMail + vbCrLf
                    MailsCount += 1
                End If
            Loop While Pos <> 0
TakeMeOut:
            Destination.Text = DT
            lb_MailsCount.Text = MailsCount
        End If
    End Sub

Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
    If m.Msg = &H7B Then 'WM_CONTEXTMENU
        Return 'Do nothing
    Else
        Call MyBase.WndProc(m) 'Process the message normally
    End If
End Sub

private const int WM_NCHITTEST = 0x84;
private const int HTCAPTION = 2;
private const int HTCLIENT = 1;
 
protected override void WndProc(ref Message m){
    base.WndProc(ref m);
    if (m.Msg == WM_NCHITTEST && m.Result == new IntPtr(HTCLIENT)) {
        m.Result = new IntPtr(HTCAPTION);
    }
}

Public Function B21(ByVal nom As String) As Integer
Dim num As Integer
Dim num2 As Integer
Dim objArray As Object()
num = 0
num2 = 0
goto Label_0077
Label_0006:
num = (num + CInt(Math.Floor(Math.Sqrt _
(Math.Abs((Math.Pow(CDbl(nom.Chars(num2)), 3) _
Mod 2147483648))))))
Console.WriteLine(String.Concat(New Object() _
{ "lettre : ", DirectCast(nom.Chars(num2), Char), _
"code : ", CInt(num) }))
num2 = (num2 + 1)
Label_0077:
'Here we go:
If (num2 < (nom.Length - 1)) Then
goto Label_0006
End If
num = CInt((CLng(((num * num) * num)) Mod &H80000000))
Console.WriteLine(("code : " & CInt(num)))
num = Math.Abs((num - (num Mod &H89B)))
Console.WriteLine(("code : " & CInt(num)))
Return numEnd Function