主题：用listview做导航界面

如listview的单击事件代码如下

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")

If lvw.Current IsNot Nothing  Then

   Forms("窗口3").Show 

End If

如有listview控件的窗口，加载后执行事件代码

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")

 lvw.Groups.Clear() '清除原来的分组

lvw.Rows.Clear() '清除原来的行

lvw.Images.Clear() '清除原来的图片

lvw.View = ViewMode.LargeIcon '用大图标模式

Dim gps() As  String  = {"欧洲","亚洲","非洲"}  '定义分组名称

Dim  nms()  As   String =  {"中国","德国","英国","日本","俄罗斯","法国","埃及","利比亚","赞比亚"} '定义标题    

Dim  ics()  As   String =   {"China","Germany","UK","Japan","Russia","France","Egypt","Libya","Zambia"} '定义图标键值   

 For Each gp  As String In gps

      Dim  vg  As   WinForm.ListViewGroup =  lvw.Groups.Add()  '增加分组  

     vg.Name =  gp  '指定分组名称  

     vg.Text = gp & "国家" '指定分组标题

Next

 For i As Integer = 0 To nms.Length - 1

    lvw.Images.AddImage(ics(i),ics(i) & ".ico", ics(i) & "48.ico") '添加代表这个国家的小图标

    Dim r As  WinForm.ListViewRow =  lvw.Rows.Add() '增加一行

    r.Text = nms(i) '指定标题

    r.ImageKey = ics(i) '指定图标键值

    Select Case nms(i)  '指定各个国家所属的分组

        Case "德国","英国","俄罗斯","法国"

            r.Group = "欧洲"

        Case  "中国","日本"

            r.Group = "亚洲"

        Case  "埃及","利比亚","赞比亚"

            r.Group = "非洲"

    End Select

所有小旗按钮单击，只显示窗口三；小旗是listview中显示的按钮，应该是单击不同小旗按钮，打开不同窗口如窗口四、窗口五窗口六，才导航；