Untitled

Private Sub ComboBox_SPItem_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox_SPItem.SelectedIndexChanged

        CreateNewCommandTextSP()

    End Sub

    Private Sub ComboBox_SPUpgrade_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox_SPUpgrade.SelectedIndexChanged

        CreateNewCommandTextSP()

    End Sub

    Private Sub ComboBox_SPWC_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox_SPWC.SelectedIndexChanged

        CreateNewCommandTextSP()

    End Sub

    Private Sub GunaCheckBox_SPCH_CheckedChanged(sender As Object, e As EventArgs) Handles GunaCheckBox_SPCH.CheckedChanged

        If GunaCheckBox_SPCH.Checked Then
            TextBox_SPCommand.Text = "$ci 287"
        Else
            TextBox_SPCommand.Clear()
            GunaImageButton_ClipSP.Visible = False
        End If

        If GunaCheckBox_SPCH.Checked Then
            Label_SPUpgrade.Visible = False
            ComboBox_SPUpgrade.Visible = False
            Label_SPItem.Visible = False
            ComboBox_SPItem.Visible = False
        Else
            Label_SPUpgrade.Visible = True
            ComboBox_SPUpgrade.Visible = True
            Label_SPItem.Visible = True
            ComboBox_SPItem.Visible = True
        End If

        If GunaCheckBox_SPCH.Checked AndAlso GunaCheckBox_SPE.Checked Then
            TextBox_SPCommand.Clear()
            TextBox_SPCommand.Text = "$edit " + TextBox_SPName.Text + " " + "$ci 287 "
        Else
            CreateNewCommandTextSP()
        End If

    End Sub

    Private Sub GunaCheckBox_SPE_CheckedChanged(sender As Object, e As EventArgs) Handles GunaCheckBox_SPE.CheckedChanged

        If GunaCheckBox_SPE.Checked Then
            Label_SPName.Visible = True
            TextBox_SPName.Visible = True
        Else
            Label_SPName.Visible = False
            TextBox_SPName.Visible = False
        End If

        If GunaCheckBox_SPCH.Checked And GunaCheckBox_SPE.Checked Then
            TextBox_SPCommand.Clear()
            TextBox_SPCommand.Text = "$edit " + TextBox_SPName.Text + " " + "$ci 287 "
        Else
            CreateNewCommandTextSP()
        End If

    End Sub

    Private Sub TextBox_SPName_TextChanged(sender As Object, e As EventArgs) Handles TextBox_SPName.TextChanged

        If GunaCheckBox_SPCH.Checked AndAlso GunaCheckBox_SPE.Checked Then
            TextBox_SPCommand.Text = "$edit " + TextBox_SPName.Text + " " + "$ci 287 "
        Else
            CreateNewCommandTextSP()
        End If

    End Sub