Private Sub GunaButton1_Click(sender As Object, e As EventArgs) Handles GunaButton1.Click
        If KeyAuthApp.login(username.Text, Guna2TextBox1.Text) Then
            Me.Hide()
            frmSplash.Show()
            Do While True
                Threading.Thread.Sleep(60000) ' 60000 = Every 60s
                If KeyAuthApp.login(username.Text, Guna2TextBox1.Text) Then
                Else
                    End
                End If
            Loop
        Else

        End If
    End Sub