Belajar Logika dan Pemrograman

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
LblKota.Text = " "
tipToolTip.setToolTip(LblNAD, "Banda Aceh")
tipToolTip.SetToolTip(LblSumut, "Medan")

End Sub

Private Sub BtnSelesai_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSelesai.Click
Me.Close()

End Sub

Private Sub LblNAD_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LblNAD.MouseHover

LblKota.Text = "Banda Aceh"
End Sub



Private Sub LblNAD_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LblNAD.MouseLeave
LblKota.Text = " "

End Sub

Private Sub LblSumut_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LblSumut.MouseHover
LblKota.Text = tipToolTip.GetToolTip(LblSumut)


End Sub

Private Sub LblSumut_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LblSumut.MouseLeave
LblKota.Text = " "

End Sub
End Class