vb6 กำหนด width , height ใน file config แต่ไม่ได้ตามขนาด pixel ที่กำหนด

Private Sub Form_Load()

Dim Text1 As Integer
Dim Text2 As Integer
Dim Text3 As Integer
Dim Text4 As Integer
Dim Text5 As String

Text1 = ReadIniValue(App.Path & "\Config.ini", "Size", "Width")
Text2 = ReadIniValue(App.Path & "\Config.ini", "Size", "Height")
Text3 = ReadIniValue(App.Path & "\Config.ini", "Size", "Top")
Text4 = ReadIniValue(App.Path & "\Config.ini", "Size", "Left")
Text5 = ReadIniValue(App.Path & "\Config.ini", "URL", "URL")

Me.BorderStyle = 0

Me.Width = (Text1 * Screen.TwipsPerPixelX)
Me.Height = (Text2 * Screen.TwipsPerPixelY)
Me.Top = Text3 * Screen.TwipsPerPixelX
Me.Left = Text4 * Screen.TwipsPerPixelY

WebBrowser1.Navigate Text5

End Sub


Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
WebBrowser1.Document.body.setAttribute "scroll", "no"
End Sub

Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)

WebBrowser1.Visible = True

With WebBrowser1
.Top = WePlay.Top
.Left = WePlay.Left
.Width = WePlay.Width
.Height = WePlay.Height

End With

End Sub