سلام
به کد ذیل نگاه کنید :
Private Sub Form_Load()

Me.ScaleMode = 1

H1 = Me.ScaleHeight

W1 = Me.ScaleWidth

Me.ScaleMode = 3

H3 = Me.ScaleHeight

W3 = Me.ScaleWidth

Me.Caption = Screen.Height * H3 / H1 & "," & Screen.Width * W3 / W1

End Sub