vb里combobox取值问题急!!!!在线等

类似QQ登录的时候,如果选中隐身登陆,然后下一个页面里的combobox显示隐身.如何作到的.
为什么我这么写不行
Private Sub Form_Load()
If frmLogin.Check1 = True Then
Image7.Visible = True
Image1.Visible = False
Combo1.Text = "隐身"
ElseIf frmLogin.Check1 = False Then
Image7.Visible = False
Image1.Visible = True
Combo1.Text = "我在线上"
End If
End Sub

请教高手怎么写!!!急!!!!! --------------------编程问答-------------------- 求高手回答谢谢 --------------------编程问答-------------------- frmLogin是被unload了，还是hide了？如果是unload ，在主窗口中用这段代码肯定要出错 --------------------编程问答-------------------- 可以考虑用全局变量
--------------------编程问答-------------------- '请注意 CheckBox的用法

1.首先先建立一个 .bas 标准模块
里面宣告 Public HideYN AS Boolean

2.你的代码改为
Private Sub Form_Load()
   If Check1.Value = 1 Then
      Image7.Visible = True
      Image1.Visible = False
      Combo1.Text = "隐身"
      HideYN = True
   Else
      Image7.Visible = False
      Image1.Visible = True
      Combo1.Text = "我在线上"
      HideYN = False
   End If
End Sub

3.在你的另个窗体

Private Sub Form_Load()
   If HideYN Then
      Image7.Visible = True
      Image1.Visible = False
      Combo1.Text = "隐身"
   Else
      Image7.Visible = False
      Image1.Visible = True
      Combo1.Text = "我在线上"
   End If
End Sub

--------------------编程问答-------------------- 你这么来一个思路
你启动的不是你的Login，而是你的主程序
你启动你的主程序后，你需要有一个用户登录验证
因此就弹出一个Login窗口，以模态显示，等待其返回

那么你可以在窗体里面设置一个属性（Property），注意不能是控件里面的值，必须是变量

然后你到主程序里面取就可以了

补充：VB ,  控件

vb里combobox取值问题 急!!!!在线等

vb里combobox取值问题急!!!!在线等