Statement is not valid in a namespace (Opgelost)

Option Explicit On
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessageSTRING Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long

Private Const WM_SETTEXT = &HC
Private Const WM_GETTEXT = &HD

Private Sub cmdVerander_Click()
    Dim StartBar As Long
    Dim StartBarText As Long
    Dim sCaption As String

    StartBar = FindWindow("Shell_TrayWnd", vbNullString)
    StartBarText = FindWindowEx(StartBar, 0&, "button", vbNullString)

    sCaption = Text1
    SendMessageSTRING(StartBarText, WM_SETTEXT, 256, sCaption)
End Sub

Option Explicit On
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessageSTRING Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
 
Private Const WM_SETTEXT = &HC
Private Const WM_GETTEXT = &HD
 
Private Sub cmdVerander_Click()
    Dim StartBar As Long
    Dim StartBarText As Long
    Dim sCaption As String
 
    StartBar = FindWindow("Shell_TrayWnd", vbNullString)
    StartBarText = FindWindowEx(StartBar, 0&, "button", vbNullString)
 
    sCaption = Text1
    SendMessageSTRING(StartBarText, WM_SETTEXT, 256, sCaption)
End Sub

Imports System
Imports ...

Public Class className

    Private blaat As ...
    Public foo As ...

End Class

Imports System
Imports ...
 
Public Class className
 
    Private blaat As ...
    Public foo As ...
 
End Class

Option Explicit On
Public Class Start
    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
    Private Declare Function SendMessageSTRING Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long

    Private Const WM_SETTEXT = &HC
    Private Const WM_GETTEXT = &HD

    Private Sub cmdVerander_Click()
        Dim StartBar As Long
        Dim StartBarText As Long
        Dim sCaption As String

        StartBar = FindWindow("Shell_TrayWnd", vbNullString)
        StartBarText = FindWindowEx(StartBar, 0&, "button", vbNullString)

        sCaption = Text1
        SendMessageSTRING(StartBarText, WM_SETTEXT, 256, sCaption)
    End Sub
End Class

Option Explicit On
Public Class Start
    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
    Private Declare Function SendMessageSTRING Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
 
    Private Const WM_SETTEXT = &HC
    Private Const WM_GETTEXT = &HD
 
    Private Sub cmdVerander_Click()
        Dim StartBar As Long
        Dim StartBarText As Long
        Dim sCaption As String
 
        StartBar = FindWindow("Shell_TrayWnd", vbNullString)
        StartBarText = FindWindowEx(StartBar, 0&, "button", vbNullString)
 
        sCaption = Text1
        SendMessageSTRING(StartBarText, WM_SETTEXT, 256, sCaption)
    End Sub
End Class