Laicure

Module FormDrag
    '********** Form Set Variables
    Private dragging As Boolean
    Private mXx As Integer
    Private mYy As Integer

    'Form Drag
    ''MouseDown
    Friend Sub FormDragDown()
        dragging = True

Laicure

Imports System.Net.Sockets

Module Extra

#Region "DoubleBuffered Buff // Use Buff.DoubleBuff(<Control>)"
    Friend NotInheritable Class Buff
        Friend Shared Sub DoubleBuff(Contt As Control)
            Dim ConttType As Type = Contt.[GetType]()
            Dim propInfo As System.Reflection.PropertyInfo = ConttType.GetProperty("DoubleBuffered", System.Reflection.BindingFlags.Instance Or System.Reflection.BindingFlags.NonPublic)
            propInfo.SetValue(Contt, True, Nothing)

Laicure

Imports System.Security.Cryptography
Imports System.Text

Module Encryptor
    '********** Cryptography Declarations
    Private cipherX As New RijndaelManaged
    'Keys can be 1~255, separated by a comma
    'keyBytes have 32 non-duplicating values
    Private keyBytes As Byte() = {}
    'IVBytes have 16 non-duplicating values