Visual Basic

Dim ds As DataSet
' code to fill DataSet with a couple of tables...
Dim arraySize As Integer
arraySize = ds.Tables("whatever").Rows.Count
Dim myArray(arraySize) As String
.
.
.

<br />
Imports System.Runtime.InteropServices<br />
Module modGetWinMsg<br />
    Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Integer, ByVal lpfn As GetWinMsgDelete, ByVal hmod As Integer, ByVal dwThreadId As Integer) As Integer<br />
<br />
    Private Declare Function CallNextHookEx Lib "user32" Alias "CallNextHookEx" (ByVal hHook As Integer, ByVal ncode As Integer, ByVal wParam As Integer, ByVal lParam As MSG) As Integer<br />
<br />
    Private Declare Function UnhookWindowsHookEx Lib "user32" Alias "UnhookWindowsHookEx" (ByVal hHook As Integer) As Integer<br />
<br />
    Private Const WH_GETMESSAGE As Integer = 3<br />
<br />
    Private Const WM_PASTE As Integer = &H302<br />
<br />
    Dim hRet As Integer<br />
<br />
    Private Structure MSG<br />
        Private hwnd As Integer<br />
        Private message As Integer<br />
        Private wParam As Integer<br />
        Private lParam As Integer<br />
        Private time As Integer<br />
        Private pt As POINTAPI<br />
    End Structure<br />
<br />
    Private Structure POINTAPI<br />
        Private x As Integer<br />
        Private y As Integer<br />
    End Structure<br />
<br />
    Private Delegate Function GetWinMsgDelete(ByVal nCode As Integer, _<br />
                                           ByVal wParam As Integer, _<br />
                                           ByVal lParam As MSG) As Integer<br />
    Private Function proGetWinMsg(ByVal nCode As Integer, ByVal wParam As Integer, ByVal lParam As MSG) As Integer<br />
        If nCode = 0 Then<br />
            If wParam = WM_PASTE Then<br />
                MessageBox.Show("asdfsad")<br />
                Return 1<br />
            End If<br />
            Return CallNextHookEx(hRet, nCode, wParam, lParam)<br />
        End If<br />
    End Function<br />
    Public Sub GetMsg()<br />
        hRet = SetWindowsHookEx(WH_GETMESSAGE, AddressOf proGetWinMsg, Marshal.GetHINSTANCE(System.Reflection.Assembly.GetExecutingAssembly.GetModules()(0)).ToInt32, 0)<br />
    End Sub<br />
    Public Sub Unhook()<br />
        If hRet <> 0 Then<br />
            UnhookWindowsHookEx(hRet)<br />
            hRet = 0<br />
        End If<br />
    End Sub<br />
End Module

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
        GetMsg()<br />
    End Sub<br />
<br />
    Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing<br />
        Unhook()<br />
    End Sub

Dim strArray(40) As String

Dim strArray() As String
 
ReDim strArray(new size)
strArray(elementNumber) = "something"

Public Module Foo
   Public Sub Test()
   End Sub
End Module

Public Class Bar
   Public Sub Main()
      Foo.Test()    ' Can be called like this.
      Test()        ' Or like this, without specifying the module name.
   End Sub
End Class