Error

[juzapt]

Que tal!!!

... estoy desarrollando mis primeras aplicaciones en visual basic .net y me he encontrado con el siguiente error: Este es mi codigo:

Namespace VB2005
Public Class clsPrueba
Public Function Mifuncion() As Boolean
If Now.TimeOfDay.Hours > 12 Then
Return True
Else
Return False
End If
End Function
End Class
End Namespace

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim miclase As New VB2005.clsPrueba
msgbox(if(miclase.Mifuncion(),"P.M","A.M"))
End Sub

Y me sale el siguiente error:
Statement is not valid in a namespace, el error figura en la linea donde declaro el Sub Form1_load

que puedo hacer ?

muchas gracias