Takıldığınız noktayı aşmak için alttaki örneği inceleyin. İsteğiniz üzerine Class Module kullanılmıştır.
Form Kodları:
Kod:
Dim cls As Class1
Set cls = New Class1
MsgBox cls.Deneme
Set cls = Nothing
Kod:
Function Deneme()
Deneme = 1
End Function