Public Class Form1
    Dim Sim(3), Battery(3), CPU(3), OS(3) As String
    Dim N As Byte


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        txtSim.Text = ""
        txtBatery.Text = ""
        txtCPU.Text = ""
        txtOS.Text = ""
        SetSim()
        SetBattery()
        SetCPU()
        SetOS()
    End Sub

    Private Sub SetSim()
        Sim(0) = "DUAL SIM - NANO"
        Sim(1) = "DUAL NANO"
        Sim(2) = "DUAL SIM - NANO"
    End Sub

    Private Sub SetBattery()
        Battery(0) = " LI-ION 4000 MAH"
        Battery(1) = "LI-ION 3000 MAH"
        Battery(2) = "LI-ION 4000 MAH"
    End Sub

    Private Sub SetCPU()
        CPU(0) = "OCTA-CORE (4X2.4 GHZ CORTEX-A73 & 4X1.8 GHZ CORTEX-A53)"
        CPU(1) = "OCTA-CORE 1.5GHZ"
        CPU(2) = "OCTA-CORE (4X2.4 GHZ CORTEX-A73 & 4X1.8 GHZ CORTEX-A53)"
    End Sub

    Private Sub SetOS()
        OS(0) = "ANDROID 8.0 (OREO)"
        OS(1) = "ANDROID 7.1 (NOUGAT)"
        OS(2) = "ANDROID 8.0 (OREO)"
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbZodia.SelectedIndexChanged
        Select Case cbZodia.Text
            Case "HUAWEI MATE 10 PRO BLACK"
                N = 0
            Case "ALCATEL 5 BLACK DS"
                N = 1
            Case "HUAWEI MATE 10 PRO BLUE"
                N = 2
        End Select

        If N = 0 Then
            PictureBox1.Visible = True
            PictureBox2.Visible = False
            PictureBox3.Visible = False
        End If
        If N = 1 Then
            PictureBox2.Visible = True
            PictureBox1.Visible = False
            PictureBox3.Visible = False
        End If
        If N = 2 Then
            PictureBox3.Visible = True
            PictureBox2.Visible = False
            PictureBox1.Visible = False
        End If

        txtSim.Text = Sim(N)
        txtBatery.Text = Battery(N)
        txtCPU.Text = CPU(N)
        txtOS.Text = OS(N)
    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

    End Sub
End Class