[vb6] adattare form alla risoluzione video

[teto]

Originariamente inviato da xegallo

Option Explicit
Private Const H = 480
Private Const W = 640
Private Sub Form_Load()
Dim currH As Single
Dim currW As Single
    currH = Screen.Height / Screen.TwipsPerPixelY
    currW = Screen.Width / Screen.TwipsPerPixelX
    If currH = H And currW = W Then
        'ok ha la stessa risoluzione
    Else
        'la risoluzione è diversa
        Me.Width = Me.Width * (currW / W)
        Me.Height = Me.Height * (currH / H)
    End If
End Sub

dove le 2 const metti la tua risoluzione

ok,grazie ora provo a vedere cosa riesco a fare