Man I SUCK Today!!!!! Select Case Statment

[hipopony66]

What's wrong with this? I'm trying to set column widths in a listview!

Private Sub CmdSaveExit_Click()
 
Select Case Checked
Case ckFilename.Value = Checked
    Kamo2.ListView1.ColumnHeaders(1).Width = 4000
Case ckFilesize.Value = Checked
    Kamo2.ListView1.ColumnHeaders(7).Width = 1301.1
Case ckArtist.Value = Checked
    Kamo2.ListView1.ColumnHeaders(2).Width = 3200.31
Case ckSongname.Value = Checked
    Kamo2.ListView1.ColumnHeaders(3).Width = 3200.31
Case ckAlbum.Value = Checked
    Kamo2.ListView1.ColumnHeaders(4).Width = 2700.28
Case ckTrack.Value = Checked
    Kamo2.ListView1.ColumnHeaders(5).Width = 899.71
Case ckFrequency.Value = Checked
    Kamo2.ListView1.ColumnHeaders(8).Width = 1440
Case ckBitrate.Value = Checked
    Kamo2.ListView1.ColumnHeaders(9).Width = 899.71
Case ckLength.Value = Checked
    Kamo2.ListView1.ColumnHeaders(10).Width = 1301.1
Case ckGenre.Value = Checked
    Kamo2.ListView1.ColumnHeaders(6).Width = 1440
End Select
 
Select Case Unchecked
Case ckFilename.Value = Unchecked
    Kamo2.ListView1.ColumnHeaders(1).Width = 0
Case ckFilesize.Value = Unchecked
    Kamo2.ListView1.ColumnHeaders(7).Width = 0
Case ckArtist.Value = Unchecked
    Kamo2.ListView1.ColumnHeaders(2).Width = 0
Case ckSongname.Value = Unchecked
    Kamo2.ListView1.ColumnHeaders(3).Width = 0
Case ckAlbum.Value = Unchecked
    Kamo2.ListView1.ColumnHeaders(4).Width = 0
Case ckTrack.Value = Unchecked
    Kamo2.ListView1.ColumnHeaders(5).Width = 0
Case ckFrequency.Value = Unchecked
    Kamo2.ListView1.ColumnHeaders(8).Width = 0
Case ckBitrate.Value = Unchecked
    Kamo2.ListView1.ColumnHeaders(9).Width = 0
Case ckLength.Value = Unchecked
    Kamo2.ListView1.ColumnHeaders(10).Width = 0
Case ckGenre.Value = Unchecked
    Kamo2.ListView1.ColumnHeaders(6).Width = 0
End Select
 
Unload Me
End Sub

I also tried: Select Case True & Select Case False w/ no luck!
Any help appreciated.