VB6 Code

[jamesanthony]

Hi
Probably being lazy but some things can be so easy when you know how.
Can you maybe help with this. It works in VB6 but doesnt in .NET
It basically resizes all forms opened to the same height etc.

Sub BuildMenu(ByRef CurrForm As Windows.Forms.Form)
Dim KilBackGnd As Object
On Error Resume Next
With CurrForm
.Left = VB6.TwipsToPixelsX(0) : .Top = VB6.TwipsToPixelsY(-260) : .Width = VB6.TwipsToPixelsX(18000) : .Height = VB6.TwipsToPixelsY(14500) : .Show()
End With
With CurrForm.Picture1
.Left = VB6.TwipsToPixelsX(120)
.Top = VB6.TwipsToPixelsY(120)
.Height = VB6.TwipsToPixelsY(900)
.Width = VB6.TwipsToPixelsX(950)
End With
With CurrForm.Picture2
.Left = VB6.TwipsToPixelsX(12570)
.Top = VB6.TwipsToPixelsY(120)
.Height = VB6.TwipsToPixelsY(900)
.Width = VB6.TwipsToPixelsX(950) : End With
CurrForm.Picture1.Visible = True
CurrForm.Picture2.Visible = True
With CurrForm.cmdClose
.Left = VB6.TwipsToPixelsX(7000)
.Top = VB6.TwipsToPixelsY(9000)
.Height = VB6.TwipsToPixelsY(615)
.Width = VB6.TwipsToPixelsX(615) : End With
With CurrForm.Label1
.height = 1000
.Width = 12000
.Label1.Font = "Tahoma"
.Alignment = vbCenter
.Left = 1200
.ForeColor = 777 : End With
CurrForm.Label1.Caption = GlobalCompanyName CurrForm.Label1.Caption
End Sub

 

[Robby]

just get rid of all the VB6.TwipsToPixelsX() and replace them with some new integers

 

[AndreRyan]

If that is a resizing feature then you should look into Docking and Anchoring, if it isnt then never mind.