Private Sub Form_Unload(Cancel As Integer)
msg = "确认退出"
msgstr = MsgBox(msg, 1)
If msgstr = vbOK Then
Unload Form1
Else

End If
End Sub
我想在退出是出现一个确认对话框，现在有个问题就是我按是也退出！我按否也退出！
是什么原因啊！应该怎么写啊！

Private Sub Text1_Click(Index As Integer)
Text1(1).BackColor = "255,0,0"
Text1(2).BackColor = "255,0,0"
Text1(3).BackColor = "255,0,0"
Text1(4).BackColor = "255,0,0"
End Sub
有这样地一个问题！我有4个控件数组文本，我想我每点击一个文本框就改变背景色，
可是像我以上地编法！我点击一下文本所有地背景都变了！如果我不用控件数组地话，就的对每个文本控件进行编辑。这样有点麻烦，希望在这里地高手帮下啊！看看有没有简单地办法啊！

Cancel=1 就退不了
第二个问题 INDEX
Text1(INDEX).BackColor = "255,0,0"

[此贴子已经被作者于2007-7-27 19:58:45编辑过]

你也可以不用控件数组嘛

Private Sub Form_Unload(Cancel As Integer)
msg = "确认退出"
msgstr = MsgBox(msg, 1)
If msgstr = vbOK Then
Unload Me
Else
Cancel = - 1
End If
End Sub

Private Sub Text1_Click(Index As Integer)
Text1(Index).BackColor = "255,0,0"
End Sub

楼上 正解。

谢谢4楼地兄弟!!!谢谢