Visual Basic - Como asignar el mes actual a un label

Tengo un progarma en donde necesito que el mes actual aparesca en un label o un text ya sea "Enero" o el mes en que se ente cuando el usuario utilice la aplicacion

Puedes hacer para que salga completo el nombre del Mes:
Private Sub Form_Load()
Label1 = TraeMes(Month(Now))
End Sub

Function TraeMes(NMes As Integer) As String
Select Case NMes
Case 1
TraeMes = "Enero"
Case 2
TraeMes = "Febrero"
Case 3
TraeMes = "Marzo"
Case 4
TraeMes = "Abril"
Case 5
TraeMes = "Mayo"
Case 6
TraeMes = "Junio"
Case 7
TraeMes = "Julio"
Case 8
TraeMes = "Agosto"
Case 9
TraeMes = "Septiembre"
Case 10
TraeMes = "Octubre"
Case 11
TraeMes = "Noviembre"
Case 12
TraeMes = "Diciembre"
End Select

End Function