Public Class Ftp

    Public Sub New()
        InitializeComponent()
        Opacity = 0
        FadeIn(Me, 20)
        Guna2TextBox1.Select()
    End Sub

    Private Sub Ftp_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Try

            If My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Ftphost", Nothing) = Nothing Then
                Guna2TextBox1.Text = "ftp.exmple.com"
            Else
                Guna2TextBox1.Text = My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Ftphost", Nothing)
            End If

            If My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Ftpuser", Nothing) = Nothing Then
                Guna2TextBox2.Text = "ftp-username"
            Else
                Guna2TextBox2.Text = My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Ftpuser", Nothing)
            End If

            If My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Ftppass", Nothing) = Nothing Then
                Guna2TextBox3.Text = "ftp-password"
            Else
                Guna2TextBox3.Text = My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Ftppass", Nothing)
            End If

            If My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Ftpport", Nothing) = Nothing Then
                Guna2NumericUpDown1.Value = 21
            Else
                Guna2NumericUpDown1.Value = Convert.ToInt32(My.Computer.Registry.GetValue(SettingsHelper.RegSave, "Ftpport", Nothing))
            End If

        Catch ex As Exception
            Debug.WriteLine(ex.Message)
        End Try
    End Sub
    Private Sub Guna2GradientButton1_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton1.Click
        Try
            My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Ftphost", Guna2TextBox1.Text)
            My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Ftpuser", Guna2TextBox2.Text)
            My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Ftppass", Guna2TextBox3.Text)
            My.Computer.Registry.SetValue(SettingsHelper.RegSave, "Ftpport", Guna2NumericUpDown1.Value.ToString)
            Close()
        Catch ex As Exception
            Debug.WriteLine(ex.Message)
        End Try
    End Sub
End Class