Beberapa Penyebab Sakit Kepala (Pusing) Yang Perlu Diketahui

Hampir semua manusia pernah mengalami sakit. Seperti halnya pusing, sakit kepala atau vertigo. Ada yang mengalami pusing ringan, pusing sedang hingga pusing berat yang sampai menyebabkan pingsan atau tidak sadarkan diri. Pusing dapat terjadi kapan saja dan dimana saja. Pusing juga dapat terjadi diseluruh lapisan umur, baik itu remaja, dewasa maupun orangtua. 

 

Agar anda tidak termasuk orang yang sering mengalami pusing, sebaiknya hindari beberapa penyebab pusing di bawah ini:

1. Kurang darah (Anemia)

Anemia adalah kondisi kurangnya kadar Hb (Haemoglobin) atau kurangnya jumlah sel darah merah (eritrosit). Akibatnya, kandungan oksigen (O2) dalam darah berkurang sehingga menyebabkan sakit kepala. Penyebab anemia antara lain : kekurangan zat besi, cacingan, perdarahan menstruasi yang berlebihan atau lama dan penggunaan obat penurun tekanan darah dapat menyebabkan pusing jika dosis yang digunakan terlalu besar.

2. Masalah pada jantung

Seperti kurangnya asupan darah yang keluar dari jantung, penyakit otot jantung (cardiomyopathy), denyut jantung tidak teratur (aritmia) atau penurunan volume darah sehingga menyebabkan aliran darah dari jantung tidak memadai.

3. Kurang tidur

Tubuh bukanlah mesin yang dapat bekerja sehari penuh.

Tubuh perlu istirahat untuk mengembalikan kesegaran keesokan harinya. Sebanyak apapun pekerjaan, jangan sampai mengurangi porsi tidur anda. Karena jika anda kurang tidur untuk memburu pekerjaan, jangan salahkan jika pusing akan mengganggu anda ketika bekerja. Sehingga yang anda lakukan menjadi kurang optimal.
 

4. Kolesterol, lemak darah dan gula darah

Kelebihan kadar kolesterol, lemak (trigliserida) dan gula pada darah dapat menyebabkan darah mengental sehingga memperlambat aliran darah di seluruh tubuh, termasuk di dalam otak yang menimbulkan sakit kepala (pusing/vertigo).

5. Kecemasan yang berlebihan

Gangguan kecemasan seperti panik, merasa sangat grogi atau mengalami fobia tertentu dapat menyebabkan seseorang merasa pusing karena adanya suatu tekanan yang terjadi dalam otak.

6. Faktor usia

Semakin bertambahnya usia seseorang akan lebih sering mengalami pusing, karena otak sudah tidak bekerja secara optimal.

Pusing mungkin tidak tampak seperti sebuah gejala yang serius. Namun sering pusing dapat menjadi tanda-tanda penyakit stroke. Karena itulah pentingnya mengetahui penyebab-penyebab pusing (sakit kepala) agar kita dapat menghindari pusing dan dapat menjaga kesehatan dengan cara yang tepat.

Sumber : http://www.hanisah.com/2013/05/beberapa-penyebab-sakit-kepala-pusing.html

Penyebab Rambut Rontok pada Wanita

Kompas.com - Jika Anda seorang wanita dan sedang mengalami kerontokan rambut, penyakit atau kondisi medis bisa memicunya. Kenali apa yang menyebabkan kerontokan rambut.

Jumlah wanita yang mengalami kerontokan rambut dan terancam kebotakan terus meningkat. Di Amerika Serikat saja diperkirakan 30 juta wanita mengalami penipisan rambut.

Masalah kerontokan rambut kini juga banyak diderita wanita muda. Tetapi, apa sebenarnya yang menyebabkan mahkota wanita itu mudah tercabut dari akarnya? Berikut adalah beberapa penyebab dan kondisi medis yang menyebabkannya.

- Siklus pertumbuhan rambut tak seimbang
Rambut tumbuh sekitar setengah inchi perbulan. Setiap rambut tumbuh dengan fase berbeda yang berlangsung antara 2-6 tahun. Fase ini termasuk periode tumbuh dan istirahat sebelum rontok dan folikel rambut menumbuhkan untaian rambut baru.

Tetapi ada sebagian wanita yang memiliki faktor genetik sehingga mereka lebih rentan mengalami kerontokan rambut akibat proses pertumbuhan rambut tidak normal. Gangguan ini disebabkan karena hormon androgen.

- Kehamilan dan persalinan
Banyak wanita yang mengalami kerontokan rambut sementara sekitar 3 bulan setelah melahirkan. Kondisi ini disebut juga dengan telogen effluvium. Rambut akan kembali ke kondisi normal beberapa bulan setelahnya.

- Gangguan hormonal
Jika tiroid Anda sangat aktif atau tidak aktif, rambut akan terkena dampaknya. Biasanya kerontokan rambut akan berhenti setalah gangguan tiroid teratasi. Rambut juga akan rontok jika terjadi gangguan hormon androgen dan estrogen.

- Obat-obatan
Beberapa jenis obat memiliki efek samping merontokkan rambut. Namun kondisi tersebut akan berakhir setelah pengobatan dihentikan. Jenis obat yang bisa menyebabkan kerontokan rambut antara lain pengencer darah, obat asam urat, obat kemoterapi, terlalu banyak vitamin A, kontrasepsi, dan obat antidepresan.

- Infeksi
Beberapa jenis infeksi, misalnya infeksi jamur di kulit kepala, juga akan menyebabkan kerontokan rambut pada anak-anak. Dengan obat antijamur kerontokan bisa dihentikan.

- Penyakit autoimun
Diantara penyakit lain, lupus atau diabetes merupakan penyebab kerontokan rambut pada wanita. Kerontokan rambut juga bisa menjadi gejala adanya penyakit.

- Kurang gizi
Diet terlalu ketat juga akan menyebabkan kerontokan rambut. Sayangnya mengembalikan pola makan menjadi sehat kembali tak cukup untuk menumbuhkan rambut, meski kerontokannya bisa dihentikan.

- Gangguan emosional
Sebagian wanita mengalami kerontokan rambut saat menghadapi situasi traumatik atau emosional. Misalnya kematian anggota keluarga, perceraian, atau merawat keluarga yang sakit parah.

- Menopause
Dari beberapa gejala menopause, kerontokan rambut adalah gejala yang paling sering dialami.

Sumber : health.kompas.com

Cinta dan Sayang

Cinta itu egois, sayang itu tidak

Cinta hanya untuk satu orang, dan sayang itu bisa dibagi-bagi dengan semua orang

Cinta hanya sebuah perasaan untuk seorang kekasih-pacar atau pasangan hidupnya, sedangkan sayang hanya ditunjukan buat keluarga-sahabat dan orang” terdekat

Rasa Sayang jauh lebih dalam dari pada rasa cinta, rasa sayang tidak mudah berubah,

Rasa sayang membuat seseoarang berkorban dan rela menderita demi orang disayangi

Cinta ingin memiliki, namun sayang tidak

Saat menyayangi seseorang, ingin sekali rasanya membuatnya bahagia dan bukan untuk diri sendiri, Saat  mencintai seseorang, akan melakukan apapun untuk kebahagiaannya walaupun  harus mengorbankan jiwa

Sayang adalah saat ia menangis dan kau akan menangis bersamanya, Cinta  adalah saat ia menangis dan kau akan membiarkannya menangis di pundakmu

Sayang  adalah saat kau melihatnya kau akan melihatnya dari hatimu dan bukan matamu, Cinta  adalah saat kau melihatnya kau akan berkata, "Buatku dia adalah anugerah terindah yang pernah Tuhan berikan padaku"

Pada saat orang yang kau Sayangi menyakitimu kau akan menangis untuknya, Pada saat orang yang kau Cintai menyakitimu kau akan berkata: "Tak apa dia hanya tak tau apa yang dia lakukan"

Pada saat kau Sayang padanya kau akan membiarkannya memilih yg terbaik untuknya, Pada saat kau Cinta padanya kau akan selalu menantinya dengan setia dan tulus

Sayang adalah kau akan menemaninya di saat dia membutuhkanmu, Cinta  adalah kau akan menemaninya di saat bagaimana keadaanmu

Sayang adalah hal yang memberi dan menerima, Cinta adalah hal yang memberi dengan rela

Cinta itu memang berbeda dengan sayang

Cara Menikmati Rasa Kehilangan

Saat seseorang yang kita kasihi, sayangi, cintai menghilang dari kehidupan kita, rasa kehilangan begitu terasa. Kehidupan terasa berbeda dari sebelumnya, lebih terasa hampa. Teman, sahabat, pacar, suami, atau istri akan menimbulkan perasaan yang sama. Hanya tingkatannya yang berbeda. Berbeda karena status hubungan juga karena dari seseorang yang kehilangan itu sendiri.

Perasaan tidak karuan bahkan beberapa bisa merasakan tekanan yang begitu berat. Bahkan kadang hal itu berpengaruh besar pada kehidupan kita selanjutnya. Lebih terasa berat bahkan kita bisa mengalami kondisi yang sangat buruk.

Seperti kesempatan yang lain, madjongke.com akan menyampaikan beberapa tips yang berkaitan dengan hal ini. Tips untuk mengatasi rasa kehilangan seseorang.

Rasakan
Rasakan hal itu dengan sebaik-baiknya. Jangan mencoba untuk melupakan hal itu secepatnya. Turutilah perasaan kamu sendiri dan jangan pernah membohongi diri sendiri. Jangan khawatir akan semakin terpuruk. Karena ini hanya sebagai langkah awal saja.

Luapkan Emosi
Selama itu positif, tidak jadi sebuah masalah. Khusus untuk wanita, bisa cukup dengan menangis. Itu wajar dan tidak memalukan selama bisa tahu tempat dan kondisi sekitar. Lakukan hal itu untuk membuat diri merasa lebih tenang.

Sadar
Yang pernah datang atau yang pernah kita dapat, suatu saat bisa hilang atau pergi, apapun itu. Seperti itulah hidup. Dan kita harus sadar akan hal itu. Tidak semua yang kita harap bisa selalu terlaksana, begitu juga dengan apa yang kita miliki tidak selamanya akan selalu bersama dengan kita.

Curahkan
Curahkan hal itu pada orang yang paling dekat dengan Kita. Jika terpaksa tidak ada, Anda bisa menjadikan madjongke.com sebagai pilihan kedua. Madjongke.com tidak akan pernah merasa keberatan dengan hal itu. Dan tentu saja bisa menjaga rahasia. Jika menarik, bisa dijadikan 1 artikel di blog ini, tentu saja identitas Anda tetap tersimpan.

Carilah pengganti
Pengganti tidak harus sama dan serupa. Kita bisa menemukan hal baru pada orang lain. Seperti sebelumnya, tidak harus sama dan serupa. Termasuk juga status hubungan yang berbeda.

Alihkan perhatian
Alihkan perhatian pada hal lain. Hal lain yang bisa meredakan rasa sakit atau emosi apapun karena kehilangan seseorang. Bisa dengan hal yang menyenangkan, namun tidak merusak diri sendiri atau mengganggu orang lain.

Berdoa
Berdoa sesuai dengan keadaan masing-masing. Meminta untuk diberi kesabaran dan jalan keluar terbaik dalam hidup ini. Setelah itu, tinggal berusaha untuk mencari dan menjadi yang lebih baik.

Rasa kehilangan pasti akan dialami semua orang. Dan di Luar sana masih banyak yang melebihi kita. Itu hanya cobaan kecil, suatu saat akan ada cobaan yang lebih besar. Kita tidak bisa lari atau menghindar, hanya bisa mempersiapkan saja.

Kata-kata Kangen

Aku kangen, saat kau bilang kau juga sayang sama ku,

Aku kangen, saat kau menatapku dengan serius,

Aku kangen, saat aku bisa bicara banyak denganmu, walaupun pembicaraan itu tidak penting tapi aku bahagia ada disampingmu,

Aku kangen, saat kau bercerita tentang apapun,

Aku kangen, lihat sikapmu saat bersamaku,

Aku kangen, saat kau ngusilin aku,

Aku kangen, saat tertawa, becanda barengmu,

Aku kangen, lihat kau marah, Aku kangen, perhatianmu padaku,

Aku kangen, dengar nasehat darimu,

Aku kangen, saat aku menangis kau slalu hapuskan air mata ini,

Aku kangen, saat kau bisa meyakinkan aku jika aku ragu akan hidupku,

Aku kangen, saat kau memegang kedua tangan ini,

Aku kangen, kau memeluk erat tubuh ini,

Aku kangen, saat aku menangis dipelukkanmu,

Aku kangen, kata selamat malam, mimpi indah dari mu,

Aku kangen, saat” bersama mu,

Aku merindukan, kasihsayangmu,

Masih Terasa saja kau ada didekatku saat ini,

Aku merindukan semua itu 

TUGAS METODE KRIPTOGRAFI

Tampilan Menu Awal:

Syntax nya: 

 PublicClass Form1

PrivateSub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click

End

EndSub

PrivateSub CaesarChToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CaesarChToolStripMenuItem.Click

        caesar_chiper.Show()

EndSub

PrivateSub VernamChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VernamChiperToolStripMenuItem.Click

        vernam_chiper.Show()

EndSub

PrivateSub VigenereChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VigenereChiperToolStripMenuItem.Click

        vigenere_chiper.Show()

EndSub

PrivateSub DesChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AutoKeyChiperToolStripMenuItem.Click

        autokey_chiper.Show()

EndSub

PrivateSub GronsfeldChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GronsfeldChiperToolStripMenuItem.Click

        Des_chiper.Show()

EndSub

PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load

EndSub

EndClass.

Tampilan Menu  Autokey_chiper :

Syntax nya :

PublicClass autokey_chiper

PrivateSub autokey_chiper_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load

        plaintext.Text = ""

        kunci.Text = ""

        chipertext.Text = ""

EndSub

PrivateFunction AutokeyEncipher(ByVal strPlaintext AsString, ByRef strKey AsString) AsString

Dim i AsLong

Dim j AsLong

Dim c1 AsInteger

Dim strPlaintext2 AsString

Dim strKey2 AsString

Dim strCiphertext AsString

Dim strCiphertext2 AsString

Dim diffKeyLen AsInteger

Dim pAlphabet AsInteger

Dim cAlphabet AsInteger

Dim nShift AsInteger

'1. Hilangkan semua karakter yang bukan alfabet dari strPlaintext

' dan simpan sebagai strPlaintext2

        strPlaintext2 = ""

For i = 1 To strPlaintext.Length

            c1 = Asc(Mid(strPlaintext, i, 1))

If (c1 >= 65 And c1 <= 90) Then

                strPlaintext2 = strPlaintext2 & Chr(c1)

EndIf

Next i

'2. Hilangkan semua karakter yang bukan alfabet dari strKey

' dan simpan sebagai strKey2

        strKey2 = ""

For i = 1 To strKey.Length

            c1 = Asc(Mid(strKey, i, 1))

If (c1 >= 65 And c1 <= 90) Then

                strKey2 = strKey2 & Chr(c1)

EndIf

Next i

'3. Susun kunci baru strKey2 berdasarkan kunci awal strKey kemudian

' ditambah plaintext

'perbedaan antara panjang plaintext dan kunci

        diffKeyLen = strPlaintext2.Length - strKey2.Length

For i = 1 To diffKeyLen

'c1 = Asc(Mid(strPlaintext2, i, 1))

            strKey2 = strKey2 & Mid(strPlaintext2, i, 1)

Next i

'4. Geser masing-masing huruf pada plaintext

' dengan huruf yang terkait pada key

        strCiphertext = ""

For i = 1 To strPlaintext2.Length

            c1 = Asc(Mid$(strPlaintext2, i, 1))

            nShift = Asc(Mid$(strKey2, i, 1)) - 65

If ((c1 >= 65) And (c1 <= 90)) Then

                pAlphabet = c1 - 65 ' get the alphabet sequence

                cAlphabet = (pAlphabet + nShift) Mod 26 ' shifted alphabet

                c1 = cAlphabet + 65 ' get character in 65 ... 90

EndIf

            strCiphertext = strCiphertext & Chr(c1)

Next i

'5. Susun strCiphertext sesuai dengan urutan strPlaintext

        strCiphertext2 = ""

        strKey = ""

        j = 1

For i = 1 To strPlaintext.Length

            c1 = Asc(Mid$(strPlaintext, i, 1))

If ((c1 >= 65) And (c1 <= 90)) Then

                strCiphertext2 = strCiphertext2 & Mid(strCiphertext, j, 1)

                strKey = strKey & Mid(strKey2, j, 1)

                j = j + 1

Else

                strCiphertext2 = strCiphertext2 & Chr(c1)

                strKey = strKey &" "

EndIf

Next i

Return strCiphertext2

EndFunction

PrivateSub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

Me.Close()

EndSub

PrivateSub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        plaintext.Text = ""

        kunci.Text = ""

        chipertext.Text = ""

EndSub

PrivateSub btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Encipher.Click

        chipertext.Text = AutokeyEncipher(plaintext.Text, kunci.Text)

EndSub

PrivateSub plaintext_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles plaintext.TextChanged

EndSub

EndClass.

Tampilan Menu Caesar_chiper :

 Syntax nya:

PublicClass caesar_chiper

PrivateSub caesar_chiper_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load

        plaintext.Text = ""

        chipertext.Text = ""

EndSub

PrivateSub btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnenkripsi.Click

Dim jumlah AsDouble = Len(plaintext.Text)

Dim x AsString

Dim xkalimat AsString = ""

Dim i AsDouble

Dim bil AsInteger

For i = 1 To jumlah

            x = Mid(plaintext.Text, i, 1)

            bil = Asc(x) + 3

            x = Chr(bil)

            xkalimat = xkalimat + x

Next i

        chipertext.Text = xkalimat

EndSub

PrivateSub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        plaintext.Text = ""

        chipertext.Text = ""

EndSub

PrivateSub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End

EndSub

PrivateSub btnkeluar_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

Me.Close()

EndSub

EndClass

 

Tampilan Menu  Des_chiper :

Syntax nya :

PublicClass Des_chiper

PrivateSub Des_chiper_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load

        plain.Text = ""

        chip.Text = ""

EndSub

PrivateSub deskripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles deskripsi.Click

Dim x AsString = ""

Dim xkalimat AsString = ""

For i = 1 To Len(chip.Text)

            x = Mid(chip.Text, i, i)

            x = Chr(Asc(x) - 3)

            xkalimat = xkalimat + x

Next

        plain.Text = xkalimat

EndSub

PrivateSub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click

        plain.Text = ""

        chip.Text = ""

EndSub

PrivateSub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click

Me.Close()

EndSub

EndClass.

Tampilan Menu Vernam_chiper :

Syntax nya:

PublicClass vernam_chiper

PrivateSub vernam_chiper_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load

        plaintext.Text = ""

        kunci.Text = ""

        chipertext.Text = ""

EndSub

PrivateSub btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnenkripsi.Click

Dim j AsInteger

Dim jum AsInteger

Dim sKey AsString

Dim nKata AsInteger

Dim nKunci AsInteger

Dim sKata AsString

Dim sPlain AsString = ""

Dim nEnc AsInteger

        j = 0

        sKata = plaintext.Text

        jum = Len(sKata)

        sKey = kunci.Text

For i = 1 To jum

If j = Len(sKey) Then

                j = 1

Else

                j = j + 1

EndIf

            nKata = Asc(Mid(sKata, i, 1)) - 65

            nKunci = Asc(Mid(sKey, j, 1)) - 65

            nEnc = ((nKata + nKunci) Mod 26)

            sPlain = sPlain & Chr((nEnc) + 65)

Next i

        chipertext.Text = sPlain

EndSub

PrivateSub plaintext_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles plaintext.KeyPress

        e.KeyChar = UCase(e.KeyChar)

Dim tombol AsInteger = Asc(e.KeyChar)

IfNot (((tombol >= 65) And (tombol <= 90)) Or (tombol = 8)) Then

            e.Handled = True

EndIf

EndSub

PrivateSub kunci_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kunci.KeyPress

        e.KeyChar = UCase(e.KeyChar)

Dim tombol AsInteger = Asc(e.KeyChar)

IfNot (((tombol >= 65) And (tombol <= 90)) Or (tombol = 8)) Then

            e.Handled = True

EndIf

EndSub

PrivateSub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        plaintext.Text = ""

        kunci.Text = ""

        chipertext.Text = ""

EndSub

PrivateSub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

Me.Close()

EndSub

PrivateSub kunci_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kunci.TextChanged

EndSub

EndClass.

Tampilan Menu Vigenere_chiper :

Syntax nya :

PublicClass vigenere_chiper

PrivateSub btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnenkripsi.Click

        chipertext.Text = Enkripsi(plaintext.Text, kunci.Text)

EndSub

Function Enkripsi(ByVal Teks AsString, ByVal Kunci AsString) AsString

Dim j AsInteger

Dim jum AsInteger

Dim sKey AsString

Dim nKata AsInteger

Dim nKunci AsInteger

Dim sKata AsString

Dim sPlain AsString

Dim nEnc AsInteger

        j = 0

        jum = Len(Teks)

        sPlain = ""

        sKey = Kunci

        sKata = Teks

For i = 1 To jum

If j = Len(sKey) Then

                j = 1

Else

                j = j + 1

EndIf

            nKata = Asc(Mid(sKata, i, 1))

            nKunci = Asc(Mid(sKey, j, 1))

            nEnc = ((nKata + nKunci) Mod 256)

            sPlain = sPlain & Chr((nEnc))

Next i

        Enkripsi = sPlain

EndFunction

PrivateSub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        plaintext.Text = ""

        kunci.Text = ""

        chipertext.Text = ""

EndSub

PrivateSub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

Me.Close()

EndSub

PrivateSub vigenere_chiper_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load

EndSub

EndClass.