несколько вопросов по vb6

If App.PrevInstance = True Then MsgBox "Программа уже запущена!": End

Private Sub Form_Load()
 
Dim LeftPos As Integer
Dim TopPos As Integer
LeftPos = Int((Screen.Width - Me.Width) / 2)
TopPos = Int((Screen.Height - Me.Height) / 2)
Me.Top = TopPos
Me.Left = LeftPos
 
End Sub

Dim Ret As Long
Dim Trn As Byte
Ret = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
Ret = Ret Or WS_EX_LAYERED
SetWindowLong Me.hWnd, GWL_EXSTYLE, Ret
Trn = 100
SetLayeredWindowAttributes Me.hWnd, 0, Trn, LWA_ALPHA

Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
 
Public Function MakeTransparent(ByVal hwnd As Long, Pr As Byte) As Long
Dim R As Long
On Error Resume Next
    If Pr < 0 Or Pr > 255 Then
      MakeTransparent = 1
    Else
      R = GetWindowLong(hwnd, -20) Or &H80000
      SetWindowLong hwnd, -20, R
      SetLayeredWindowAttributes hwnd, 0, Pr, &H2
      MakeTransparent = 0
    End If
    If Err Then
      MakeTransparent = 2
    End If
End Function
Private Sub Form_Load()
 'Me.StartUpPosition = 2 для центрирования в свойствах
Dim LeftPos As Integer
Dim TopPos As Integer
LeftPos = Int((Screen.Width - Me.Width) / 2)
TopPos = Int((Screen.Height - Me.Height) / 2)
Me.Top = TopPos
Me.Left = LeftPos
MakeTransparent Me.hwnd, 100
  
End Sub