LISTING FORM PENDAFTARAN RAMONA MUSIC SCHOOL

Public Class Form1

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

Me.Text = "RAMONA MUSIC SCHOOL"

End Sub

Keterangan :                              

Baris 1 mengubah nama form menjadi “RAMONA MUSIC SCHOOL“

Me adalah nama yang diberikan ke form 1

End sub berarti mengakhiri sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Form2.Show()

Me.Hide()

End Sub

End Class

Keterangan:

Form2.show() berarti Form2 akan muncul jika button di click

Me.Hide( (* Menunjukan bahwa apabila form 2 muncul,maka form 1 tertutup))

End sub berarti mengakhiri sub

End class berarti untuk mengakhiri form 1

Public Class Form2

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Form3.Show()

Me.Hide()

End Sub

Keterangan :

Form3.show() berarti Form3 akan muncul jika button di click.

Me.Hide( (* Menunjukan bahwa apabila form 2 muncul,maka form 1 tertutup))

End sub berarti umtuk mengakhiri sub.

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

Me.BackColor = Color.AliceBlue

End Sub

End Class

Keterangan :

Me.Backcolor = Color.AliceBlue artinya mengubah background menjadi aliceblue

End sub berarti untuk mengakhiri sub

End class berarti untuk mengakhiri form 3

Public Class Form3

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

Me.BackColor = Color.AliceBlue

End Sub

Keterangan ;

Me.BackColor = Color.AliceBlue berarti mengubah background menjadi AliceBlue

End Sub berarti untuk mengakhiri sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

MsgBox("TERIMA KASIH TELAH MENDAFTAR")

End Sub

End Class

Keterangan :

MsgBox("TERIMA KASIH TELAH MENDAFTAR") adalah kotak pesan akan muncul jika Anda telah selesai mengisi data dengan benar.

End sub berarti untuk mengakhiri sub