If Forms("窗口1").Opened Then
Dim lvw As WinForm.ListView = Forms("窗口1").Controls("ListView1")Dim vr As WinForm.ListViewRow = lvw.Currentvr.BackColor = Color.Blue
End If