Visual Basic

Imports System.Runtime.InteropServices

Public NotInheritable Class Api

    <StructLayout(LayoutKind.Explicit)> _
    Private Structure RECT
        <FieldOffset(0)> Public left As Integer
        <FieldOffset(4)> Public top As Integer
        <FieldOffset(8)> Public right As Integer
        <FieldOffset(12)> Public bottom As Integer
    End Structure

    <DllImport("User32.dll", CharSet:=System.Runtime.InteropServices.CharSet.Auto)> _
    Private Shared Function GetWindowRect(ByVal hWnd As IntPtr, ByRef lpRect As RECT) As Boolean
    End Function

    ''' <summary>Get the location of a control in screen coordinates.</summary>
    ''' <param name="control">The control who's location will be returned.</param>
    ''' <returns>Returns the location of the control in screen coordinates.</returns>
    Public Shared Function AbsoluteLocation(ByVal control As Control) As Point
        If (control Is Nothing) Then Throw New ArgumentNullException("control")

        Dim rect As New rect
        GetWindowRect(control.Handle, rect)
        Return New Point(rect.left, rect.top)
    End Function

End Class

Public Class LogFotosForm
    Private Sub PreviewFotoChkBx_CheckedChanged( _
        ByVal sender As System.Object, ByVal e As System.EventArgs) _
        Handles PreviewFotoChkBx.CheckedChanged
        If PreviewFotoChkBx.Checked Then
            Me.Width = 320
        Else
            Me.Width = 450
        End If
    End Sub
End Class