Public Class FormIzracunMeasure
    Private Sub FormIzracunMeasure_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ComboBox1.SelectedIndex = 0
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim cb = ComboBox1.Text
        Select Case cb
            Case "Red Laser"
                TextBox9.Text = "+0.0344"
                TextBox9.Enabled = False
                Label11.Enabled = False
            Case "Leica Circ. Prism"
                TextBox9.Text = "+0.0000"
                TextBox9.Enabled = False
                Label11.Enabled = False
            Case "Leica Mini Prism"
                TextBox9.Text = "+0.0175"
                TextBox9.Enabled = False
                Label11.Enabled = False
            Case "Vnos konstante..."
                TextBox9.Text = "+0.0000"
                TextBox9.Enabled = True
                Label11.Enabled = True
            Case Else

        End Select
    End Sub
End Class