Телефонный справочник

Public Class Form1

Private Sub BT1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT1.Click

Dim K As New Bitmap("images.jpg")

PictureBox1.Image = K

Lb1.Text = "ул.Героев труда д.67 кв.233"

Lb2.Text = "097-1557689"

End Sub

Private Sub BT2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BT2.Click

Dim K As New Bitmap("image1.jpg")

PictureBox1.Image = K

Lb1.Text = "ул.Гвардейцев Широнинцев д.77 кв.15"

Lb2.Text = "095-3334445"

End Sub

Private Sub BT3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BT3.Click

Dim K As New Bitmap("image2.jpg")

PictureBox1.Image = K

Lb1.Text = "пр.Тракторостроителей д.207 кв.91"

Lb2.Text = "64-63-88"

End Sub

Private Sub BT4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BT4.Click

Dim K As New Bitmap("image3.jpg")

PictureBox1.Image = K

Lb1.Text = "ул.Героев труда д.55 кв.28"

Lb2.Text = "063-1236547"

End Sub

End Class