Module Module1
  Public Sub LocalizeForm(ByVal oForm As Windows.Forms.Form)
    If oForm.Equals(Form1) Then
      oForm.Controls("Button1").Text = "Test"
    End If
  End Sub
End Module

Public Class Form1
  Private Sub Form1_Load(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load
 
    LocalizeForm(Me)
  End Sub
End Class

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de