Private Sub checkOS()
        Dim os As String = LCase(My.Computer.Info.OSFullName.ToString())
        Dim sp As String = LCase(My.Computer.Info.OSVersion())
        If (os.Contains("xp") = True) Then
            MsgBox("windows 7 up in this bisnach" & vbCr & sp)

        ElseIf (os.Contains("vista") = True) Then
            MsgBox("windows 7 up in this bisnach" & vbCr & sp)
        ElseIf (os.Contains("7") = True) Then
            MsgBox("windows 7 up in this bisnach" & vbCr & sp)
        Else
            'some other system
        End If


    End Sub