vb中不能再上下文中卸载

我的代码是这样的
Private Sub Combo1_Click()
'**************************************'
'跳转到删除数据操作界面
'**************************************'
If Combo1.ListIndex = 0 Then
Unload Me
Form4.Show vbModal
Exit Sub
End If

'**************************************'
'跳转到添加数据操作界面'
'**************************************'
If Combo1.ListIndex = 1 Then
Unload Me
Form6.Show vbModal
Exit Sub
End If

'**************************************'
'跳转到查询数据操作界面'
'**************************************'
If Combo1.ListIndex = 1 Then
Unload Me
Form6.Show vbModal
Exit Sub
End If
End Sub
调试的时候显示这一句Unload Me有问题，说是不能再上下文中卸载，请问要如何修改才可以，我这一段程序主要实现的功能是一个超链接的功能，选中combo中的一个就跳转到该界面并关闭当前界面，麻烦帮我改一下代码，谢谢

改成这样
这是第一个，其他类同
Form4.Show
Form1.Hide
Exit Sub

w