Imports System.IO
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.TextBox1.ReadOnly = True
        Me.ShowIcon = False
        Me.MinimizeBox = False
        Me.MaximizeBox = False
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.ColorDialog1.ShowDialog()
        Dim SaberColor = Me.ColorDialog1.Color
        Dim HexValue = SaberColor.ToArgb.ToString("X")
        Dim Address() As String = {"0x00A42A50 0x", "0x00A4BCC4 0x", "0x00A4F92C 0x", "0x00A3B818 0x"}
        Dim Saber As Integer

        Saber = Me.ComboBox1.SelectedIndex

        TextBox1.Text = "#Lightsaber Color Mod (" + ComboBox1.Text + ")" + vbNewLine +
                        ";FaT@L 3rRoR" + vbNewLine +
                        ";-xUnLeasHeDx- LS Color" + vbNewLine +
                        Address(Saber) + HexValue
    End Sub

    Private Sub SaveAsTxtFileToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveAsTxtFileToolStripMenuItem.Click
        Dim UserName As String = System.Environment.UserName 'Gets the username of the computer

        Dim TxtFile As StreamWriter = New StreamWriter("C:\Users\" + UserName + "\Desktop\LS Color.txt", True)

        Try
            'Create TXT file
            TxtFile.WriteLine()
            TxtFile.Write(TextBox1.Text)
            TxtFile.WriteLine()
            TxtFile.Close()

            MsgBox("Text Document successfully created" + vbNewLine + vbNewLine + "(C:\Users\" + UserName + "\Desktop\LS Color.txt)", MessageBoxIcon.Information)
        Catch ex As Exception
            MsgBox("Text Document could not be created!", MessageBoxIcon.Error)
        End Try
    End Sub
End Class