結果 : select case vb6 sample code