#Region " String To Case Function "
 
    ' [ String To Case Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    '
    ' MsgBox(String_To_Case("ThiS is A TeST", StringCase.Lower))
    ' MsgBox(String_To_Case("ThiS is A TeST", StringCase.Upper))
    ' MsgBox(String_To_Case("ThiS is A TeST", StringCase.Word))
    ' MsgBox(String_To_Case("ThiS is A TeST", StringCase.Title))
    ' MsgBox(String_To_Case("ThiS is A TeST", StringCase.Title, True))
 
    Enum StringCase
        Lower
        Upper
        Title
        Word
    End Enum
 
    Public Function String_To_Case(ByVal Input_String As String, ByVal StringCase As StringCase, Optional ByVal Reverse As Boolean = False) As String
        If Not Input_String = Nothing And Not Input_String = "" Then
            Dim Output_String As String = Nothing
            Select Case StringCase
                Case StringCase.Lower : Output_String = System.Globalization.CultureInfo.CurrentCulture.TextInfo.ToLower(Input_String)
                Case StringCase.Upper : Output_String = System.Globalization.CultureInfo.CurrentCulture.TextInfo.ToUpper(Input_String)
                Case StringCase.Title : Output_String = Char.ToUpper(Input_String(0)) + StrConv(Input_String.Substring(1), VbStrConv.Lowercase)
                Case StringCase.Word : Output_String = System.Globalization.CultureInfo.CurrentCulture.TextInfo.ToTitleCase(Input_String)
            End Select
            If Reverse Then Return Microsoft.VisualBasic.StrReverse(Output_String) Else Return Output_String
        Else : Return False ' Any string to convert
        End If
    End Function
 
#End Region

#Region " Create ShortCut Function "
 
    ' [ Create ShortCut Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    '
    ' Create_ShortCut(ShortcutPath.MyDocuments, "My APP Shortcut.lnk", "C:\File.exe")
    ' Create_ShortCut(ShortcutPath.Desktop, "My CMD Shortcut.lnk", "CMD.exe", "/C Echo Hello World & Pause")
    ' Create_ShortCut(ShortcutPath.Favorites, "My INTERNET Shortcut.lnk", "http://www.Google.com", , "CTRL+SHIFT+S")
    ' Create_ShortCut(ShortcutPath.Favorites, "My INTERNET Shortcut.lnk", "http://www.Google.com", , "CTRL+SHIFT+S", "Description of the shortcut")
 
    Enum ShortcutPath
        AppData = Environment.SpecialFolder.ApplicationData
        Desktop = Environment.SpecialFolder.Desktop
        Favorites = Environment.SpecialFolder.Favorites
        LocalAppData = Environment.SpecialFolder.LocalApplicationData
        MyDocuments = Environment.SpecialFolder.MyDocuments
        ProgramFiles = Environment.SpecialFolder.ProgramFiles
        ProgramFilesx86 = Environment.SpecialFolder.ProgramFilesX86
        StartMenu = Environment.SpecialFolder.StartMenu
        System32 = Environment.SpecialFolder.System
        SysWOW64 = Environment.SpecialFolder.SystemX86
        UserProfile = Environment.SpecialFolder.UserProfile
        Windows = Environment.SpecialFolder.Windows
    End Enum
 
    Function Create_ShortCut(ByVal Shortcut_Path As ShortcutPath, _
                            ByVal Shortcut_Name As String, _
                            ByVal APP As String, _
                            Optional ByVal APP_Arguments As String = Nothing, _
                            Optional ByVal HotKey As String = Nothing, _
                            Optional ByVal Icon As String = Nothing, _
                            Optional ByVal Description As String = Nothing) As Boolean
 
        Dim Dir = New IO.DirectoryInfo(System.Environment.GetFolderPath(Shortcut_Path))
        Dim WorkingDir As IO.FileInfo
        If Not APP.Contains("/") Then WorkingDir = New IO.FileInfo(APP) Else WorkingDir = Nothing
        Try
            Dim WSHShell As Object = CreateObject("WScript.Shell")
            Dim Shortcut As Object
            Shortcut = WSHShell.CreateShortcut(Dir.FullName & "\" & Shortcut_Name)
            Shortcut.TargetPath = APP
            Shortcut.Arguments = APP_Arguments
            Shortcut.WindowStyle = 2
            Shortcut.Hotkey = HotKey
            Shortcut.Description = Description
            If Not APP.Contains("/") Then Shortcut.WorkingDirectory = WorkingDir.DirectoryName
            If Icon IsNot Nothing Then Shortcut.IconLocation = Icon Else Shortcut.IconLocation = APP
            Shortcut.Save()
            Return True
        Catch ex As Exception
            Return False
        End Try
    End Function
 
#End Region

#Region " GrayScale Image Function "
 
    ' [ GrayScale Image Function ]
    '
    ' Examples:
    '
    ' PictureBox1.Image = GrayScale_Image(PictureBox1.Image, GrayScale.Light_Gray)
    ' PictureBox1.Image = GrayScale_Image(PictureBox1.Image, GrayScale.Mid_Gray)
    ' PictureBox1.Image = GrayScale_Image(PictureBox1.Image, GrayScale.Dark_Gray)
 
    Enum GrayScale
        Light_Gray
        Mid_Gray
        Dark_Gray
    End Enum
 
    Private Function GrayScale_Image(ByVal Image As Image, ByVal Gray_Tone As GrayScale) As Bitmap
        Dim Image_Bitmap As Bitmap = New Bitmap(Image.Width, Image.Height)
        Dim Image_Graphic As Graphics = Graphics.FromImage(Image_Bitmap)
        Dim Color_Matrix As System.Drawing.Imaging.ColorMatrix = Nothing
        Select Case Gray_Tone
            Case GrayScale.Light_Gray : Color_Matrix = New System.Drawing.Imaging.ColorMatrix(New Single()() {New Single() {0.2, 0.2, 0.2, 0, 0}, New Single() {0.2, 0.2, 0.2, 0, 0}, New Single() {0.5, 0.5, 0.5, 0, 0}, New Single() {0, 0, 0, 1, 0}, New Single() {0, 0, 0, 0, 1}})
            Case GrayScale.Mid_Gray : Color_Matrix = New System.Drawing.Imaging.ColorMatrix(New Single()() {New Single() {0, 0, 0, 0, 0}, New Single() {0, 0, 0, 0, 0}, New Single() {0.5, 0.5, 0.5, 0, 0}, New Single() {0, 0, 0, 1, 0}, New Single() {0, 0, 0, 0, 1}})
            Case GrayScale.Dark_Gray : Color_Matrix = New System.Drawing.Imaging.ColorMatrix(New Single()() {New Single() {0, 0, 0, 0, 0}, New Single() {0, 0, 0, 0, 0}, New Single() {0.2, 0.2, 0.2, 0, 0}, New Single() {0, 0, 0, 1, 0}, New Single() {0, 0, 0, 0, 1}})
        End Select
        Dim Image_Attributes As System.Drawing.Imaging.ImageAttributes = New System.Drawing.Imaging.ImageAttributes()
        Image_Attributes.SetColorMatrix(Color_Matrix)
        Image_Graphic.DrawImage(Image, New Rectangle(0, 0, Image.Width, Image.Height), 0, 0, Image.Width, Image.Height, GraphicsUnit.Pixel, Image_Attributes)
        Image_Graphic.Dispose()
        Return Image_Bitmap
    End Function
 
#End Region