Public Class Form1
    Dim Ekran(5), Hz(5), Rezo(5) As String
    Dim N As Byte
    Private Sub setEkran()
        Ekran(0) = "23 инча (58.4 см)"
        Ekran(1) = "22 инча (56 см)"
        Ekran(2) = "27 инча (68.58 см)"
        Ekran(3) = "29 инча (73.02 см)"
        Ekran(4) = "27 инча (68.58 см)"
    End Sub
    Private Sub setHz()
        Hz(0) = "60hz"
        Hz(1) = "75hz"
        Hz(2) = "75hz"
        Hz(3) = "75hz"
        Hz(4) = "60hz"
    End Sub
    Private Sub setRezo()
        Rezo(0) = "1920 x 1080 (Full HD)"
        Rezo(1) = "1920 x 1080 (Full HD)"
        Rezo(2) = "1920 x 1080 (Full HD)"
        Rezo(3) = "2560 x 1440"
        Rezo(4) = "2560 x 1440"
    End Sub

 Private Sub cbMonitor_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbMonitor.SelectedIndexChanged
        Select Case cbMonitor.Text
            Case "Dell"
                N = 0
            Case "AOC"
                N = 1
            Case "BenQ"
                N = 2
            Case "LG"
                N = 3
            Case "Acer"
                N = 4
        End Select
        ekranV.Text = Ekran(N)
        hzV.Text = Hz(N)
        rezoV.Text = Rezo(N)

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ekranV.Text = ""
        hzV.Text = ""
        rezoV.Text = ""
        setEkran()
        setHz()
        setRezo()
    End Sub
End Class