Hi Greg,

Regarding this code snippet, I have helped you to translate it. Yes, it
seems the converter tool will use the old style VB6 syntax to for the
p/invoke APIs. Anyway, I have converted it with the new VB.net syntaxt:

Imports System.Runtime.InteropServices
Public Class Form1
   Class WinApi
       <DllImport("user32.dll", CharSet:=CharSet.Auto)> _
   Public Shared Function GetSystemMetrics(ByVal nIndex As Integer) As
Integer
       End Function

       <DllImport("user32.dll", CharSet:=CharSet.Auto)> _
    Public Shared Function SetWindowPos(ByVal hWnd As IntPtr, ByVal
hWndInsertAfter As IntPtr, ByVal x As Integer, ByVal y As Integer, ByVal cx
As Integer, ByVal cy As Integer, ByVal flags As Integer) As Boolean
       End Function

       Private Shared SM_CXSCREEN As Integer = 0
       Private Shared SM_CYSCREEN As Integer = 1
       Private Shared HWND_TOP As IntPtr = IntPtr.Zero
       Private Shared SWP_SHOWWINDOW As Integer = 64 '

       Public Shared ReadOnly Property ScreenX() As Integer
           Get
               Return GetSystemMetrics(SM_CXSCREEN)
           End Get
       End Property

       Public Shared ReadOnly Property ScreenY() As Integer
           Get
               Return GetSystemMetrics(SM_CYSCREEN)
           End Get
       End Property

       Public Shared Sub SetWinFullScreen(ByVal hwnd As IntPtr)
           SetWindowPos(hwnd, HWND_TOP, 0, 0, ScreenX, ScreenY,
SWP_SHOWWINDOW)
       End Sub 'SetWinFullScreen
   End Class 'WinApi

   Private frmState As New FormState()

   Public Class FormState
       Private winState As FormWindowState
       Private brdStyle As FormBorderStyle
       Private topMost As Boolean
       Private bounds As Rectangle

       Private IsMaximized As Boolean = False

       Public Sub Maximize(ByVal targetForm As Form)
           If Not IsMaximized Then
               IsMaximized = True
               Save(targetForm)
               targetForm.WindowState = FormWindowState.Maximized
               targetForm.FormBorderStyle = FormBorderStyle.None
               targetForm.TopMost = True
               WinApi.SetWinFullScreen(targetForm.Handle)
           End If
       End Sub 'Maximize

       Public Sub Save(ByVal targetForm As Form)
           winState = targetForm.WindowState
           brdStyle = targetForm.FormBorderStyle
           topMost = targetForm.TopMost
           bounds = targetForm.Bounds
       End Sub 'Save

       Public Sub Restore(ByVal targetForm As Form)
           targetForm.WindowState = winState
           targetForm.FormBorderStyle = brdStyle
           targetForm.TopMost = topMost
           targetForm.Bounds = bounds
           IsMaximized = False
       End Sub 'Restore
   End Class 'FormState

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
       frmState.Maximize(Me)
   End Sub

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
       frmState.Restore(Me)
   End Sub
End Class

Finally, for such VB.net syntax issue, I would recommend you to post in
microsoft.public.dotnet.languages.vb because there will be more VB.net
developers there.

Hope this helps.

Best regards,
Jeffrey Tan
Microsoft Online Community Support
==================================================
Get notification to my posts through email? Please refer to
http://msdn.microsoft.com/subscriptions/managednewsgroups/default.aspx#notif
ications.

Note: The MSDN Managed Newsgroup support offering is for non-urgent issues
where an initial response from the community or a Microsoft Support
Engineer within 1 business day is acceptable. Please note that each follow
up response may take approximately 2 business days as the support
professional working with you may need further investigation to reach the
most efficient resolution. The offering is not appropriate for situations
that require urgent, real-time or phone-based interactions or complex
project analysis and dump analysis issues. Issues of this nature are best
handled working with a dedicated Microsoft Support Engineer by contacting
Microsoft Customer Support Services (CSS) at
http://msdn.microsoft.com/subscriptions/support/default.aspx.
==================================================
This posting is provided "AS IS" with no warranties, and confers no rights.