Class initialize vb6
bonjour!
pourquoi je recois toujours le msgbox erreur dans la class_initialize tandisque dans la sub log msgbox welcome ?
pourquoi je recois toujours le msgbox erreur dans la class_initialize tandisque dans la sub log msgbox welcome ?
Dim a As Variant
Dim b As Variant
Public Sub log(a As Variant, b As Variant)
a = a
b = b
If a = "echo" And b = "echo" Then
MsgBox "welcome "
Else
MsgBox "error"
End If
End Sub
Private Sub Class_Initialize()
log a, b
End Sub
Private Sub Command1_Click()
Dim x As Class1
Set x = New Class1
x.log "echo", "echo"
End Sub
