Sub Initialize
Dim db As New NotesDatabase( "", "denmark.nsf" )
Dim view As NotesView
Dim column As NotesViewColumn
Set view = db.GetView( "By Category" )
Set column = view.Columns( 0 )
If column.IsCategory Then
Messagebox( "First column is categorized.")
Else
Messagebox( "First column isn't categorized.")
End If
End Sub

関連項目

IsCategory プロパティ