Image

1. Форманы жасаймыз:

2. Формадағы audi-s5 түгмесін 2 рет басып мына программаны жазамыз:

Private Sub Command1_Click()

Image1.Visible = True

Image2.Visible = False

Image3.Visible = False

Image4.Visible = False

Image5.Visible = False

Image6.Visible = False

Text1 = "audi-s5"

End Sub

3. Формадағы audi-tt-420 түгмесін 2 рет басып мына программаны жазамыз:

Private Sub Command2_Click()

Image2.Visible = True

Image1.Visible = False

Image3.Visible = False

Image4.Visible = False

Image5.Visible = False

Image6.Visible = False

Text1 = "audi-tt-420"

End Sub

4. Формадағы bmw-m3 түгмесін 2 рет басып мына программаны жазамыз:

Private Sub Command3_Click()

Image3.Visible = True

Image1.Visible = False

Image2.Visible = False

Image4.Visible = False

Image5.Visible = False

Image6.Visible = False

Text1 = "bmw-m3"

End Sub

5. Формадағы ford-focus3 түгмесін 2 рет басып мына программаны жазамыз:

Private Sub Command4_Click()

Image4.Visible = True

Image1.Visible = False

Image3.Visible = False

Image2.Visible = False

Image5.Visible = False

Image6.Visible = False

Text1 = "ford-focus3"

End Sub

6.Формадағы land-rover түгмесін 2 рет басып мына программаны жазамыз

Private Sub Command5_Click()

Image5.Visible = True

Image1.Visible = False

Image3.Visible = False

Image4.Visible = False

Image2.Visible = False

Image6.Visible = False

Text1 = "land-rover"

End Sub

7.Формадағы porsche түгмесін 2 рет басып мына программаны жазамыз

Private Sub Command6_Click()

Image6.Visible = True

Image1.Visible = False

Image3.Visible = False

Image4.Visible = False

Image5.Visible = False

Image2.Visible = False

Text1 = "porsche"

End Sub

8.Формадағы Шыгу түгмесін 2 рет басып мына программаны жазамыз

Private Sub Command7_Click()

End

End Sub