Code:
    Private Sub MakeCboReadOnly()
        ComboBox1.BackColor = SystemColors.Control
        ComboBox1.DropDownStyle = ComboBoxStyle.Simple
        ComboBox1.TabStop = False
    End Sub

    Private Sub ComboBox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBox1.KeyDown
        If ComboBox1.DropDownStyle = ComboBoxStyle.Simple AndAlso _
    (e.KeyCode = Keys.Up OrElse _
     e.KeyCode = Keys.Down OrElse _
     e.KeyCode = Keys.Delete) Then
            e.Handled = True
        End If
    End Sub

    Private Sub ComboBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ComboBox1.KeyPress
        If ComboBox1.DropDownStyle = ComboBoxStyle.Simple Then
            e.Handled = True
        End If
    End Sub