TIPS CARA MENGATASI MASALAH HIDUP DENGAN NYAMAN DAN BAHAGIA

1. Bersyukur kepada Allah Yang Maha Kasih dan Sayang kepada seluruh makhluknya bahwa kita masih dapat bernafas, makan, minum, dan beraktivitas lainnya. Semua ini terjadi atas izinNya.
2. Jangan menyerah dengan masalah Anda! Justru Anda adalah raja dari diri Anda. Masalah yang datang "menerpa" Anda hanyalah sekedar menjadi media apakah Anda akan lulus dan menjadi orang hebat, ataukah menjadi pecundang dan mundur ke belakang.
3. Yakinkan dalam hati Anda bahwa ujian masalah hidup merupakan sarana untuk menjadikan Anda "naik kelas"
4. Curhatlah kepada Yang MahaKuasa. Adukan semua permasalahan Anda dan minta tolonglah agar dibantu dalam mendapatkan solusi. Yakinlah 100% bahwa doa Anda didengar oleh Dia dan tangan-Nya akan segera menolong Anda.

    5.   Terus berusaha sekuat tenaga mencari solusi dan pemecahannya

Form Login

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Password.Passwordchar = "*"

    End Sub

    Private Sub ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ok.Click

        If Username.Text = "" Or password.Text = "" Then

            MsgBox("Maaf, Username Dan Password Belum Di Input!!")

            Username.Focus()

        ElseIf Username.Text = "Awal" And password.Text = "123" Then

            MsgBox("Welcome To Menu Utama :-)")

            Username.Show()

            Me.Hide()

        Else

            MsgBox("Maaf, Username Dan Password Salah!")

            Username.Text = ""

            password.Text = ""

            Username().Focus()

        End If

    End Sub

End Class